topic Re: Perl - read between lines in a file in Operating System - HP-UX

Perl - read between lines in a file

ES UNIX Team — Mon, 17 May 2004 14:05:16 GMT

All,
I was wondering if anyone had a better way to read between lines in a file. I can do it with a few loops, but it is messy and time consuming. I'd like a better way.

The file would be:
A
bunch of lines
B
bunch of lines
C
bunch of lines
D

and I want the "bunch of lines" between line B and line C. I will know what line B and line C are, but nothing else in the file.

Anybody know a really clean way to do this in Perl?

Re: Perl - read between lines in a file

Scott Palmer_1 — Mon, 17 May 2004 14:11:10 GMT

open(INFILE,"<$INFILE")|| die;
while) {
if (/$PAT1/ ... /$PAT2/ ) {
print "$_";
}
}

this prints everyting between patern1 and patern2

Regards
Scott

Re: Perl - read between lines in a file

Patrick Wallek — Mon, 17 May 2004 14:13:22 GMT

This isn't a complete script but maybe something like this:

#!/usr/bin/sh

FLAG=N
LINE1="Text of line you want to start printing from"
LINE2="Text of line you want to stop printing"
while read LINE
do
if [ "${LINE}" = "${LINE2}" ] ; then
FLAG=N
fi

if [ "${FLAG}" = "Y" ] ; then
echo ${LINE}
fi

if [ "${LINE}" = "${LINE1}" ] ; then
FLAG=Y
fi

done < inputfile

I think something like that should work. If that doesn't work it should be pretty close.

Re: Perl - read between lines in a file

Marvin Strong — Mon, 17 May 2004 14:17:52 GMT

#perl -ne 'if(/line B/.../line C/){print}' inputfile

Re: Perl - read between lines in a file

Rodney Hills — Mon, 17 May 2004 14:33:00 GMT

To reword Marvins,

perl -ne '$seq=/^B/../^C/; print if ($seq > 1 and substr($seq,-2) ne "E0")' inputfile

This will exclude the "B" and "C" lines

HTH

-- Rod Hills