Re: Reading certain lines in a file

[mrmick]

in reply to Reading certain lines in a file

How about the following(untested, of course):

# read a file and set a flag (boolean) if pattern is found
# we then will print the following line and reset the flag

open(OUT,$outputfilename)||die "Could not open $outputfilename for out
+put\n$!\n";
open(FILE,$inputfilename)||die "Could not open $inputfilename for read
+ing\n$!\n";
while(<FILE>){
    if($checked){
        print OUT;
        undef $checked;
        next;
    }
    if(/pattern/){
        $checked=1;
        next;
    }
    
}
close(FILE);
close(OUT);

Mick