toolic is correct.
you probably want something like this
while(<IN>){ my $line = $_; unless ($line =~ /\S/) { print STDERR "Skipping line $. (blank)\n"; next; } my @fields = split /\t/,$line; unless (@fields >= 10) { print STDERR "Error: line $.: less than 10 fields: $_\n"; } . . .
In reply to Re: Why is there only one column in the output file?
by ryber
in thread Why is there only one column in the output file?
by perllearner007
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |