Help for this page

Select Code to Download


  1. or download this
    open ORGIDATA, ">orig" || die "Couldn't open! $!";
           for (my $k = 0; $k < @classid; $k++) {
    ...
               }
           }
           close ORGIDATA;
    
  2. or download this
            print ORGIDATA $classid[$k], " ", @{$class[$k]}, " ", $locatio
    +n