Help for this page

Select Code to Download


  1. or download this
    my @ODB;
    my $firstLine++;
    ...
       $firstLine = '';
    }
    close (ORGDB)
    
  2. or download this
    my @ODB;
    open (ORGDB, $database) || die "open $database - $!\n";
    ...
       push (@ODB, $_);
    }
    close (ORGDB);