OS and Software > All Things Unix > return lines after regex match perl

return lines after regex match perl

Simply do it.

while read; not at end of file {
    next if doesn't match regexp;
    output the matched line;
    for up to N and while not at end of file {
          read the line;
          output the line;
    }
}
 

reply to Chewbakka
Just grab the next line from your file handle after the match:

perl code:

my $data = undef;
while(my $line = <$fh>) {
    chomp($line);

    if($line =~ /$re/) {
        chomp($data = <$fh>);
        last;
    }
}

if(! $data) {
    print "Data not found.\n";
} else {
    print "Found data line: $data\n";
}