Perl help

[Vibhor Kumar Agarwal]

Hi,

I want to parse a file with perl.

a
b
c
d
e

Is the file and i want to have contents "b" to "d"

sed -n '/b/,/d/p' file.txt

does it.

How can it be done via perl.
Thanks

[Peter Godron]

perl -n -e "print if /[b-d]/" file.txt

[James R. Ferguson · Accepted solution]

Hi:

Another way:

# perl -ne 'print if /b/../d/' file.txt

Regards!

...JRF...

[spex]

Hi Vibhor,

Just in case you were wondering about awk:
# awk '/b/,/d/' file.txt

PCS

[Vibhor Kumar Agarwal]

Hi,

Peter, i think your command only works if the line starts with that. I had some words in mid-way.

James: Bingo

[Peter Godron]

Sorry,
my mis-understanding of the input file.

[Vibhor Kumar Agarwal]

Welcome :-),

This is my first twist with perl.

One more hint needed.

How do i put it in perl script:

I was writing something like:

print "if '/\*\*\* BOM report/../----- BUILD/'" /usr/local/path/a.txt

Got error
Illegal division by zero.

What am i doing wrong.

[James R. Ferguson]

Hi (again):

# echo "\*\*\* BOM report" > myfile
# echo "da da da" >> myfile
# echo "---- BUILD/" >> myfile

# perl -nle 'print if /\\*\\*\\* BOM report/../----- BUILD/' myfile

Regards!

...JRF...

[Vibhor Kumar Agarwal]

You got me wrong.

I have a huge file, midway it contains text like

blah
blah
*** BOM report
blah
---- BUILD
blah

This is what i am parsing.

I want to run that file from inside a perl script, as the file is getting generated from within the script itself.

[James R. Ferguson]

Hi:

You say that the file that you want to parse is "...generated within the script itself".

Is the script in question a Perl script or a shell script?

If it's a Perl script then close the file; reopen it; and parse it; something like this, perhaps:

...
open(F, "<", "/tmp/build") or die "Cannot open: $!\n";
while () {
$ok=1 if /BOM/;
print if $ok;
last if /BUILD/;
}
...

...If the script is a shell script, you can simply embed the perl snippet I offered within the shell script just like you would spawn an 'awk' or 'sed' snippet.

Regards!

...JRF...

[Vibhor Kumar Agarwal]

Its a perl script.

Okay, i will try the Open-Close thingy and let you know.

Thanks