Help for this page

Select Code to Download

Select or download this

perl -nE"/: / and $c+= (split/: /)[0]; if( eof(ARGV) ){ say qq[SUM.$AR
+V =$c]; $c=0 }" tmp_*