Help for this page

Select Code to Download


  1. or download this
    
perl -F"," -lanE "$h{join ',',@F[0,1]}+=$F[2]}{map{say $_.','.$h{$_}}s
+ort keys %h"  sample.csv
...
3211112,101,3.2
3211113,100,5.2
  2. or download this
    perl -MO=Deparse -F"," -lanE "$h{join ',',@F[0,1]}+=$F[2]}{map{say $_.
+','.$h{$_}}sort keys %h"  sample.csv

...
}
-e syntax OK
  3. or download this
    perl -MO=Deparse -e 1
'???';
...
}
-e syntax OK