Help for this page

Select Code to Download


  1. or download this
    % perl -e ' while (<>) { if (/: /) {  $c += (split /: /)[0]; }  } prin
    +t "SUM.$ARGV =$c\n"' tmp_*
    
  2. or download this
    %perl -e ' while (<>) { if (/: /) {  $c += (split /: /)[0]; }  } print
    + "SUM.$ARGV =$c\n"' | xargs cat tmp_filelist