Re: Match pattern and print next line

[Wiggins d'Anconia]

You could always say <LOG> again inside your if to print the next line. Realize that you will not then be able to check that line for the string, but if that is ok which it sounds like it is then it should work. See below.

Joshua Kaufman wrote:

Hi All;
I'm trying to match a pattern in a text file and then print out the next
line in that file. I could swear that I've done this before by incrementing
$. to move to the next line. However, the code below is printing out the
matched line rather than the next line.

#!/usr/bin/perl
open (LOG, "./lmelog");
for ( <LOG> ) { if ( /- Student Id/){
++$.;
print "$_\n";

	  print <LOG>;

    }
}

http://danconia.org


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]