InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/languages/perl/scripts-convex/clones/wc.pl

Text File | 1991-05-11 | 316 b | 14 lines

$lines++;
$chars += length;
$words += s/\S+//g;
next unless eof;

printf " %7d %7d %7d %s\n", $lines, $words, $chars, ($ARGV eq '-'?'':$ARGV);

$tlines += $.;
$twords += $words;
$tchars += $chars;
$chars = $words = $lines = 0;

printf " %7d %7d %7d %s\n", $tlines, $twords, $tchars, "total" if $files++ && eof();