Help for this page

Select Code to Download


  1. or download this
      my $j = 0;
      my($line,$field,$record);
    ...
        print RESULTS $line,"\n";
      }
      close(RESULTS);
    
  2. or download this
    -      foreach $field (keys %$record){
    +      foreach $field (@{$sth->{NAME}}) {