Help for this page

Select Code to Download


  1. or download this
    USERID1|2215|Jones,Tom|
USERID1|1000|Jones, Tom|
USERID3|1495|Dole, Bob|
USERID2|2500|Francis, Pope|
USERID2|1500|Francis, Pope|
  2. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
    }

foreach $key (keys %sum){print "$key|$sum{$key}|$reason\n";}
  3. or download this
    USERID3|1495|Francis, Pope
USERID1|3215|Francis, Pope
USERID2|4000|Francis, Pope