read multi lines of a file in perl

[sharan250]

Hi all,
I have to read severals line of a document in perl. I wrote a program but with that am able to read only lines by line. eg if i have a file in which contents are:

process jkdgf
jdk
jhfk
end process
process jhdk
jfka
end process
 

I have to read data betwenn process and end process. But am not able to.
my code is

while(<WORDLIST>)
{
    if (/process/)    #check for process
    {
            print "$_";
 
        if (/end process/)
    {
    last;
    }
}}
close (WORDLIST);
 

am just able to read only

process jkdgf
end process
 

as output....
i want output to be as

jdk
jhfk
jfka
 

Many Thanks in advance..

[numberwhun]

Well, that is because you are looking for the terms "process" and "end process" and printing them when found. You are not telling it to do anything else. This script is essentially doing exactly what you have told it to do.

Try using something like this inside of the while loop:

unless ( $_ ~= /(?:process|end process)/) {
     print $_;
}
 

Mind you, that is completely untested.

Regards,

Jeff

[KevinADC]

Well, that is because you are looking for the terms "process" and "end process" and printing them when found. You are not telling it to do anything else. This script is essentially doing exactly what you have told it to do.

Try using something like this inside of the while loop:

unless ( $_ ~= /(?:process|end process)/) {
     print $_;
}
 

Mind you, that is completely untested.

Regards,

Jeff

New operator '~='? I think that is the mysterious and undocumented "maybe equals" operator. ;)

The answer to this question is found in the Perl FAQs. The second and or third FAQ on this page should help:

http://perldoc.perl.org/perlfaq6.html


.

[numberwhun]

New operator '~='? I think that is the mysterious and undocumented "maybe equals" operator. ;)

The answer to this question is found in the Perl FAQs. The second and or third FAQ on this page should help:

http://perldoc.perl.org/perlfaq6.html


.

LOL!! Ok, so I had it backwards, it should be =~. Sorry for the confusion.

**I must revisit the FAQs one of these days**