Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: regex on previous lines

by si_lence (Deacon)
on Jan 31, 2013 at 17:16 UTC ( [id://1016363] : note . print w/replies, xml ) Need Help??

in reply to regex on previous lines

another possibilty is to read the whole file in one string and match it there
use strict; use warnings; #slurp mode, read whole file in one variable $/ = undef; my $text = <DATA>; if ($text =~ /xxxxx.*?\n.*?yyyyy.*?\n.*?zzzzz/) { print "match \n"; } else { print "no match \n"; } __DATA__ xxxxx bla yyyyy bla bla zzzzz
if you want to match only if the three lines are excatly xxxxx, yyyyy and zzzzz respectivly, remove the .*? from the regex