in reply to Re: how to check for a word in a file and if found remove that line, the above line and the below line from the file.
in thread how to check for a word in a file and if found remove that line, the above line and the below line from the file.

Less tricky than the above oneliner version:
# file used below has the same content of the previous example's DATA 
+token<P>

perl -e "open $fh,$ARGV[0];while(<$fh>){push @unv,$.-1,$.,$.+1 if /XXX
+XX/}seek $fh,0,0;while(<$fh>){print unless ++$index ~~ @unv}" file
11111
22222
33333
44444

[download]

i was not able to resolve to use perl -lne because i've encountered some problem using seek ARGV even if in a BEGIN block.

L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In Section Seekers of Perl Wisdom