Match pattern and print next line

[Joshua Kaufman]

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";

    }
}

I really don't want to save the file into an array, given that it is > 10^6
lines long. 

Please cc me off list with any replies.

Thanks in advance!

Joshua R. Kaufman | Product Development Manager | Impart Knowledge
Solutions, Inc. | 312-496-5669, x1003



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