Re^2: command line perl command to get between lines with non greedy match


Think about Loose Coupling
	PerlMonks

Re^2: command line perl command to get between lines with non greedy match

by LanX (Saint)

on Jan 18, 2020 at 02:05 UTC ( [id://11111567]=note: print w/replies, xml )

Need Help??

in reply to Re: command line perl command to get between lines with non greedy match
in thread command line perl command to get between lines with non greedy match

This will print all shortest records between Pattern 1 and 3

I just doubled your input.

C:\tmp\files>perl -nE"if ($x=(/PATTERN1/../PATTERN3/)) { @out=() if /P
+ATTERN1/; push @out,$_; print @out if $x=~/E0$/ }" input2
PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO
PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO

C:\tmp\files>
[download]

update

a bit cleaner

C:\tmp\files>perl -nE" $first=/PATTERN1/; $last=/PATTERN3/; if ( $firs
+t..$last) { @o=() if $first; push @o,$_; say @o if $last }" input2
PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO

PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}