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.


Do you know where your variables are?
	PerlMonks

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.

by hdb (Monsignor)

on Jan 20, 2016 at 12:56 UTC ( [id://1153173]=note: print w/replies, xml )

Need Help??

in reply to 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.

Here is my proposal which has a somewhat simpler logic utilizing the empty string to print nothing:

use strict;
use warnings;
my $previous="";
while(<DATA>){
    if(/XXXXX/){
        <DATA>;
        $previous="";
    }else{
        print $previous;
        $previous=$_;
    }
}
print $previous;
__DATA__
PPPPP
XXXXX is my name
YYYYY
KKKKK
UUUUU
BBBBB
CCCCCC
XXXXX is what I play
KKKKK
NNNNN
[download]

Comment on 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. Download Code

Replies are listed 'Best First'.
Re^2: 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. by ikegami (Patriarch) on Jan 22, 2016 at 16:27 UTC
That fails if there are two lines in a row that matches. That can fail if the last line matches. You can't rely on a file handle return EOF more than once.	[reply]
Re^3: 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. by hdb (Monsignor) on Jan 22, 2016 at 19:16 UTC
Damn! Life is just too complicated. Thanks for pointing this out.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1153173]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others browsing the Monastery: (1)

NodeReaper

As of 2024-04-25 03:52 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found