Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

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

by LanX (Archbishop)
on Jan 17, 2020 at 23:02 UTC ( #11111558=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

> The difficulty here is to always reset the array for previous matches.

Too lazy for a full example, look at this demo code in the debugger

DB<72> map {if ($x=(/b/../d/)) { $out[$x]=$_; $last=$x }} a..e,a..e, +a..b,1..3,d..e; DB<73> x @out[1..$last] 0 'b' 1 1 2 2 3 3 4 'd' DB<74>

$x is actually a count of the flip-flop match and will be reset 3 times.

we keep the last max $x in $last

you only need to END{print @out[1..$last] } in your one-liner to eject just these last lines.

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

update

assuming PATTERN2 and PATTERN3 are similar

>perl -ne"if ($x=(/PATTERN1/.../PATTERN?/)) { $out[$x]=$_; $last=$x; } +; END{ print @out[1..$last] }" input PATTERN1 SOME INFO TEXT4 TEXT5 TEXT6 PATTERN3 SOME INFO C:\tmp\files>

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11111558]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2020-02-19 11:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?










    Results (81 votes). Check out past polls.

    Notices?