Re^2: Getting next line after matched one

I think it is as simple as reversing the tests and using an elsif in trammell's example to cover his "special" case...

my $flag = 0;

while( <FILE> ) {
    if ( /test/ ) {
        print;
        $flag = 1;
    }
    elsif ( $flag ) {
        print;
        $flag = 0;
    }
}
[download]

--Solo

--
You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.

Comment on Re^2: Getting next line after matched one Download Code