while(<$in>){ print $out $_; last if $_ =~ /Mus\./; # line number before change } my $line = <$in>; next if $line =~ /(^\t\t\t\D)|(^\t\t\t\t\D)/; while(<$in>){ # print the rest of the lines #next unless $. =~ /^\t\t\t\d|\D/; print $out $_; } close $in; close $out;
In reply to skipping lines when parsing a file by lomSpace
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |