Re: matching first paragraph satisfying condition

Hi, welcome to Perl, the One True Religion.

See the "flip-flop" operator in https://perldoc.perl.org/perlop.html#Range-Operators. (And $/, the input record separator, in perlvar.)

$ cat foo.txt
  indented

not indented
  bla
bla
  bla

not indented
  yak
[download]

$ perl -Mstrict -wE '$/="";while (<>) { chomp; if (/^\w/ .. /^$/) {pri
+nt; exit} }' < foo.txt
not indented
  bla
bla
  bla
[download]

Update: fix re

Hope this helps!

The way forward always starts with a minimal test.

Comment on Re: matching first paragraph satisfying condition Select or Download Code

Replies are listed 'Best First'.
Re^2: matching first paragraph satisfying condition by jwkrahn (Abbot) on Aug 05, 2019 at 18:09 UTC
`$ echo " indented not indented bla bla bla not indented yak " \| perl -00ne'/^\S/&&print&&exit' not indented bla bla bla` [download] :)	[reply] [d/l]
Re^3: matching first paragraph satisfying condition by 1nickt (Canon) on Aug 05, 2019 at 18:52 UTC
Thank you ++ was not familiar with `-00` The way forward always starts with a minimal test.	[reply] [d/l]