Help for this page

Select Code to Download


  1. or download this
    open(FILE, ">$ffdb");
    foreach my $line (@ffdbdata) {
    ...
      print FILE join("|", @column), "\n";   # do one write statement
    }
    close FILE;