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

Text File | 1991-08-09 | 383 b | 16 lines

while (<>) {
    $lines++;
    $chars += length;
    $words++ while /\b./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;
    $files++ if eof();
}
printf " %7d %7d %7d %s\n", $tlines, $twords, $tchars, "total" if $files++;