SPUG: The Regexp of Infinitude.

[Stuart Poulin]

One trick is to hide the escaped \# before doing the match, then unhide them
after.

# Warning - Untested

$_ =~ s{\\#}{\\\0377}g;
# Do some match but don't worry about \# since you've hid it.
my ($buffer) = m{#(.*)#/};
# Now undo the hiding:
$buffer =~ s{\\\0377}{\\#}g;


--- Ken McGlothlen <mcglk at serv.net> wrote:
> For reasons which, I'm afraid, are going to be obscure at the moment, I have
> the following line in my Perl script:
> 
> 	$buffer =~ m#^(\043(.*?[^\\])*?)(\043/\})(.*)#s;
> 
> Basically, this should be interpreted as
> 

_____________________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    POST TO: spug-list at pm.org        PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace ACTION below by subscribe or unsubscribe
        Email to majordomo at pm.org: ACTION spug-list your_address