in reply to reading lines from a text file

Perhaps this is what you want: 

while ( $line = <FH> )
{
       if ( $line =~ /$SearchString/ ... $line =~ /$SearchString/ )
       {
         "continue reading lines until I reach the same search string 
+second time"
       }
}

[download]

Replies are listed 'Best First'.
Re^2: reading lines from a text file
by misba (Initiate) on Dec 27, 2008 at 09:49 UTC
    Thanks for your reply. Let me tell you what I tried and what I want. I tried this: 
    while ( $line = <FH> )
{
       if ( $line =~ /$SearchString/)
       {
             while(($nextline=<FH>) and ($nextline=~/$SearchString/))
             {
                 push @temp $nextline;
             } #close of inner while
        } #close of if
} #close of while

    [download]
    Now, in the above code, i am trying to read the next line using inner "while" until I reach the search string which I think is not working for me. I want to know whether reading the subsequent lines of file inside outer while loop works or not. If it does not, what is other way of achieving it? Thanks again.
[reply]
[d/l]
      ($nextline=~/$SearchString/)

      [download]

      Is it maybe that you have the comparison wrong? You are comparing whether $nextline matches /$SearchString/. I interpret your description as that you want to stay in the loop while $nextline does not match /$SearchString/:

      ($nextline!~/$SearchString/)

      [download]
[reply]
[d/l]
[select]
        You are right, I want to stay inside inner while loop until nextline matches search string. But lets forget my code, I am just looking for an answer to this: 
        while($line=<FH>)
{
   while($nextline=<FH>)
   {
    ....
   }
}

        [download]
        Is this possible, I mean, does the inner "while loop" help me to read next line in the file. How can I read next line in a file, being inside first "while loop". I dont want to break first while loop. Thanks.
[reply]
[d/l]

In Section Seekers of Perl Wisdom