Help for this page

Select Code to Download


  1. or download this
    C:\test>type junk.dat
1208782,abc
...
def:514041
abc:1918297
rxwz:335563
  2. or download this
    perl -nlE"($n,$k)=split',';$h{$k}+=$n}{say$_,':',$h{$_}for sort keys%h
+" junk.dat
abc:1918297
def:514041
mps:382404
rxwz:335563