in reply to Re: Re: Two-dimensional match/regex?
in thread Two-dimensional match/regex?
also produces "Match!", which it shouldn't.my $target = q{ MM oo < -/ /^\ : C : 8===8 |^| ||| -~-~ }; print "Match!\n" if ($target =~ /\/\^\\\n.+C/m);
Also,
doesn't match.my $target=q { MM oo < - ^ ^ /^\ @ @ : C : ( o ) 8===8 `+' |^| O-X-O ||| / \ -~-~ O O }; print "Match!\n" if ($target =~ /\/\^\\\n.+C/m);
The regex doesn't therefore meet the specification of finding one Ascii picture within a larger picture!
Cheerio!
Osfameron
http://osfameron.perlmonk.org/chickenman/
|
|---|