Hi monks, I have written a perl script for reading an input file and checking if there are certain keywords present in that file and remove those lines from the file.
#!/usr/bin/perl
use strict;
use warnings;
open(my $in, '<', 'out2.txt')
or die "Cannot open input.txt: $!";
open(my $out, '>', 'out2_mod.sp')
or die "Cannot open output.txt: $!";
while (<$in>) {
print $out $_ unless /XXXXX/;
}
close($in);
close($out);
How do I modify the perl script to remove the one line above and below the line I am removing currently,as well as remove the line containing XXXXX.
To rephrase.
my input file will have
PPPPP
XXXXX is my name
YYYYY
KKKKK
UUUUU
BBBBB
CCCCCC
XXXXX is what I play
KKKKK
NNNNN
I want to find the lines were XXXXX exists and remove the line above and below that line and also line containing XXXXX.
So my ouptut should look like
KKKKK
UUUUU
BBBBB
NNNNN
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|