countpages.pl.in

来自「Lin-Kernighan heuristic for the TSP and 」· IN 代码 · 共 16 行

#! @PERL@
#@configure_input@
# countpages.pl
# Count the number of TeX pages in a set of documents.
# Usage: countpages.pl *.log
#
$total=0;
while($line=<>) {
	$_ = $line;
	if (m/\((\d+) pages/) {
		$total += $1;
		print $line;
	}
}
print "$total total pages\n";