Help for this page

Select Code to Download


  1. or download this
         $re1='(gain)';
     $re2='(:)';
...
     $re7='(\\d+)';
     $re=$re1.$re2.$re3.$re4.$re5.$re6.$re7;
     if ($lookup =~ m/$re/isg) {
  2. or download this
      $re = '(gain)(:)(Overall)(:)(\\d+)(:)(\\d+)';
  ...
  "$name $7\n"
  3. or download this
        $reg1='(ERROR)';
    
    ...

     elsif ($lookup =~ m/$reg1/isg)
  4. or download this
    #! perl -slw
use strict;
...
    lookup( \*LOOKUP, $name );
}
close( LOOKUP );