Re: [Solved]Need to extract a particular block of lines between two patterns

in reply to [Solved]Need to extract a particular block of lines between two patterns

This solution makes use of the next if 1 .. /^END$/; flip flop operator. The 1 is the first line of the file to the first END. The next time it encounters a START END block, it performs the actions in the code.

#!/usr/bin/perl
use strict;
use warnings;

while (<>) {
    next if 1 .. /^END$/;
    if (/^START$/ .. /^END$/) {
        next if /^START$/;
        last if /^END$/;
        print;  
    }
}
[download]

This works for the data sample you provided.

In Section Seekers of Perl Wisdom