Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: regex on previous lines

by choroba (Chancellor)
on Jan 31, 2013 at 16:36 UTC ( #1016355=note: print w/replies, xml ) Need Help??


in reply to regex on previous lines

What do you mean by "do a Regex"? Do you want to match the lines agains regular expresisons, or do you want to modify the lines via substitution?

As usually, there are more ways how to do that. For example, if you are in a *nix environment, you can tac your file and process it from the last line. Or, you can remember the last two lines in case you want to process them:

my @lines; while (<>) { push @lines, $_; shift @lines if @lines > 3; } if ($lines[2] =~ $regex1) { if ($lines[1] =~ $regex2) { if ($lines[0] =~ $regex3) { # Do your work here. } } }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016355]
help
Chatterbox?
[choroba]: Robocoptic!
[erix]: I like Coptics :)
[LanX]: Copts
[erix]: sorry - just pulling your leg
[robby_dobby]: erix: It's a little late for that :-)
[robby_dobby]: I was falling asleep at my chair and threw out that one bit about participating in a YAPC. Things went from there :-)
[erix]: never too late to pull legs
[LanX]: Official YAPC Africa 2013 Announcement
erix always game to pull legs from sleeping cells
[erix]: hm nice might do a spot of diving - Red Sea is said to be beautiful

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (14)
As of 2017-04-24 16:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (442 votes). Check out past polls.