Help for this page

Select Code to Download


  1. or download this
    while  <RLS> )
    {
    #        $_ = undiacritic($_);
    ...
            }
    }
    close(RLS);
    
  2. or download this
    if (!$cols[5]) { $lbs = 0 } elsif ($cols[5] eq "0.0") { $lbs = 0 } els
    +e { $lbs = $cols[5] }
    if (!$cols[6]) {$gms = 0} elsif ($cols[5] eq "0.0") { $lbs = 0 } else 
    +{ $gms = $cols[6] }