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:

Expand|Select|Wrap|Line Numbers

 
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

Expand|Select|Wrap|Line Numbers

 
while(<WORDLIST>)

{

    if (/process/)    #check for process

    {

            print "$_";
 
        if (/end process/)

    {

    last;

    }

}}

close (WORDLIST);

am just able to read only

Expand|Select|Wrap|Line Numbers

 
process jkdgf

end process

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

Expand|Select|Wrap|Line Numbers

 
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:

Expand|Select|Wrap|Line Numbers

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

     print $_;

}

Mind you, that is completely untested.

Regards,

Jeff

KevinADC

Quote:

Originally Posted by 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:

Expand|Select|Wrap|Line Numbers

 
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

Quote:

Originally Posted by KevinADC

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**

read multi lines of a file in perl

re: read multi lines of a file in perl

re: read multi lines of a file in perl

re: read multi lines of a file in perl

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about