Re: upto match please, my one-lina!!

Howzabout this?

perl -ne 'print @t if /foo/; push @t,$_; shift @t if $#t>5' file
[download]

You can even slice @t in the print if you want to have a larger gap between the last printed item and the regular expression...

UPDATE: I golfed it down a little:

perl -ne 'print @t if /foo/; @t=(@t[1..4],$_)' file
[download]

--roboticus

Comment on Re: upto match please, my one-lina!! Select or Download Code

Replies are listed 'Best First'.
Re^2: upto match please, my one-lina!! by jwkrahn (Abbot) on Jun 09, 2006 at 03:56 UTC
That doesn't print the "---\n" string or the correct lines. You want something like: `perl -ne'@t=(@t[1..4],$_);/regex/&&die@t,"---\n"' file` [download]	[reply] [d/l]
Re^3: upto match please, my one-lina!! by roboticus (Chancellor) on Jun 09, 2006 at 04:05 UTC
D'oh! I was having so much fun playing with one-liners that I forgot the parameters of the problem. I love that `die` trick.... I'll have to try it: `perl -ne '@t=(@t[1..4],$_,"---\n");die@t if/foo/' file` [download] --roboticus	[reply] [d/l] [select]
Re^4: upto match please, my one-lina!! by jwkrahn (Abbot) on Jun 09, 2006 at 09:15 UTC
`@t=(@t[1..4],$_,"---\n")` [download] You are adding two lines for every one line you remove so every second line will be "---\n".	[reply] [d/l]