Help for this page

Select Code to Download


  1. or download this
    my (%data);
while (<DATA>) {
...
200-300,ER,576
100-250,MA,150
75-300,MA,350
  2. or download this
    #
# Variables, throughout run
...
ER
300|576
400|576
  3. or download this
        if (defined($data{$f1}{$f2}{'data'} {
      my (%uniq);
...
      }
      $v4 .= join( ':', sort(keys(%uniq)) );
    }