Help for this page

Select Code to Download

Select or download this

$folder2 = "C:/neaq/ArcData/bluefin/data_dens/1994sptr/";
$textfile2 = "10.06.94.txt";
open(INFILE2, "$folder2$textfile2") or 
        die "Cannot open: $textfile2\n";

Select or download this

open FH, "first file" || die "problem with first file : $!";
@first =<FH>; # slurp into array
...
}
close OUTPUT;