Re: Regular Expression Help?

On Tuesday, November 4, 2003, at 08:50 PM, David Fetter wrote:

>>> $eline =~ s/(#\w+)/$replacements{$1} || $1/ge;
>
> I'd be a little scared to use this one because #\w+ matches more
> things than I know about for sure.

Yes, but I've allowed for that by just using $1 if it doesn't exist in
%replacements.

> It might be a little less maintenance to do something like
>
> $match = qr{ "(". join("|", keys %replacements) . ")" }o;
>
> $eline =~ s/$match/$replacements{$1}/g;

Yeah, that's cool, too, although the terminal "o" probably isn't
needed, because a qr// is defined once by default!

Cheers,

David

--
David Wheeler AIM: dwTheory
david(at)kineticode(dot)com ICQ: 15726394
http://www.kineticode.com/ Yahoo!: dew7e
Jabber: Theory(at)jabber(dot)org
Kineticode. Setting knowledge in motion.[sm]