Re^3: How to find content between KEYWORD and BLANKLINE then print it

The wording of the OP seems to imply that the blank line that ends the range should not actually be printed, as 1nickt attempts. Adding another && condition after the flip-flop achieves that.

$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
Seb
Xavier
Peter

Roland
Jim
Xerox
Paddle

Yoyo
EOD

while ( <$inFH> )
{
    print if ( m{X} .. m{^\s*$} ) && ! m{^\s*$};
}'
Xavier
Peter
Xerox
Paddle
$
[download]

I hope this is of interest.

Cheers,

JohnGG

Comment on Re^3: How to find content between KEYWORD and BLANKLINE then print it Select or Download Code

Replies are listed 'Best First'.
Re^4: How to find content between KEYWORD and BLANKLINE then print it by choroba (Cardinal) on Jan 07, 2016 at 13:39 UTC
As documented in perlop, the flip-flop operator appends `E0` to its return value for the last line, so you can exclude it directly by inspecting the value: `while (<>) { my $m = /X/ .. /^\s$/; print if $m && $m !~ /E0$/; }` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7*2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]