perl -pe 'goto LINE if /^2nd/' myfile
$ perl -MO=Deparse -pe 'goto LINE if /^2nd/' myfile LINE: while (defined($_ = <ARGV>)) { goto LINE if /^2nd/; } continue { print $_; } -e syntax OK
In reply to Re^2: Removing Lines from a file
by cephas
in thread Removing Lines from a file
by artist
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |