why isn't this working (perl Question)

[Kimbro Staken]

"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  -  PLUG-discuss@lists.PLUG.phoenix.az.us
> http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss

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