why isn't this working (perl Question)

Top Page
Attachments:
Message as email
+ (text/plain)
Delete this message
Reply to this message
Author: Kimbro Staken
Date:  
Subject: why isn't this working (perl Question)
"David A. Sinck" wrote:
>
> \_ SMTP quoth Kimbro Staken on 4/22/2001 16:08 as having spake thusly:
> \_
> \_ Try this
> \_
> \_ $bufr =~ /\<(.*\@.*)\>/;
> \_ if ($1) {
> \_    $email = $1;
> \_ }

>
> Ah, but this could lead to amusements if you fail to match on the
> pattern and $1 is still 'good' from a previous match:
>


Heh, heh, obvious bug, bad very very bad, slap, slap. :-)

>
> YMMV.
>
> David, JAPH
> ________________________________________________
> See http://PLUG.phoenix.az.us/navigator-mail.shtml if your mail doesn't post to the list quickly and you use Netscape to write mail.
>
> PLUG-discuss mailing list -
> http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss


--
Kimbro Staken
Chief Technology Officer
dbXML Group L.L.C
http://www.dbxmlgroup.com