Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
    print CSV join ",",@numbers;
    print CSV $/;
}
  2. or download this
    nph>time cat numbers.csv | perl -nle'@d=split /,/;$a[$_]+=$d[$_] for (
+0..4);END{print join "\t", @a}'
249959157       249671314       249649377       250057435       249420
+634
...
real    0m6.45s
user    0m5.91s
sys     0m0.07s