UPDATE: @fields contains the last line after finishing the while loop.my @fields; my $i = 0; while ( my $line = <$FILE> ) { chomp $line; if ( $line =~ /\t/ ) { if ($i > 0 ) { # do smth with last @fields array } @fields = split "\t", $line; $i++; } else { push @fields, $line; } }
In reply to Re: Edit complex file
by lima1
in thread Edit complex file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |