http://www.perlmonks.org?node_id=1025990


in reply to Title of Column and Split Function

open my $fh, "<", "filename" or die $!; my $headerline = <$fh>; unless(defined $headerline) { die "ERROR: Couldn't read header line: Bad file format?"; } while(my $line = <$fh>) { process($line); } close $fh or die $!;

McA