Re: [MacPerl] - Regep question

["Thomas R. Kimpton" <tkimpton@maned.com>]

[stuff deleted]
>
>while (<>) {
>  if (/\Q<\/font><\/font><\/form>\E/) {
>    $puts = 1;
>  }
>  elsif (/(?s)\Q<br>\E\n\n\Q<br>\E\n/) {
>   $puts = 0;
>  }
>
[stuff deleted]
>
>what I'm searching for is 
>
>"<br>(newline)(newline)<br>(newline)"
>
[stuff deleted]


You are matching on $_, which is being set by the <>, but, it's
being set to a *single* line (everything up to and including the newline),
and you're trying a match that spans multiple lines.  I believe
I've seen a way to do it, but, I couldn't find it in my brief
perusal of the manual.


Tom Kimpton
--
Mrs. Bun: Have you got anything without spam?
Waitress: Well, there's spam egg sausage and spam, that's not got
much spam in it.
Mrs. Bun: I don't want any spam!



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to 
mac-perl-request@iis.ee.ethz.ch