Do you see the very-obvious bug in the code? Obviously you do.

Sorry, but I don't. Could you explain or demonstrate the bug with an SSCCE?

There is only one point in time when $count will be exactly equal to 2, and anyone could spot the flaw immediately.

That seems to be the OP's specification, "extract only the second block of lines that meet the pattern" (emphasis mine). Note how the OP's sample input data explicitly says "lines not to be extracted". I've added an extra block to the input for testing:

use warnings;
use strict;
my $count = 0;
while (<DATA>) {
    if (/START/ .. /END/) {
        $count++ if /START/;
        print if ($count == 2);
    }
}
__DATA__
abc
efg
...
START
lines NOT to be extracted 1
END
START
lines to be extracted
END
START
lines NOT to be extracted 2
END
START
lines NOT to be extracted 3
END

[download]

Outputs:

START
lines to be extracted
END

[download]

... which seems to me to meet the specification. Cristoforo's code also works as posted, except that it does not output the START and END markers.

Whereas your code, once I fix all the syntax errors and change "do something with the line" to a print, outputs for the same sample input:

lines to be extracted
lines NOT to be extracted 3

[download]

Update: Added the last two paragraphs, and minor edits for clarity.

In reply to Re^2: [Solved]Need to extract a particular block of lines between two patterns by haukex
in thread [Solved]Need to extract a particular block of lines between two patterns by chengchl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.