Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Re: print line 5 lines previous to comaprison line!

by Adam (Vicar)
on Jun 08, 2001 at 01:47 UTC ( #86772=note: print w/replies, xml ) Need Help??


in reply to Re: print line 5 lines previous to comaprison line!
in thread print line 5 lines previous to comaprison line!

Nice. One suggestion:
# change: print $buffer[0] if /$pat/; # to: print $buffer[0] if /\Q$pat\E/o;
The \Q and \E presume that $pat is just a string, not a regex. So you would want to escape any special characters (like '.' or '+' ) and the o tells Perl that $pat isn't going to change in the loop, so it won't keep recompiling the pattern.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2016-10-01 05:18 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:







    Results (575 votes). Check out past polls.