why isn't this working (perl Question)

トップ ページ
添付ファイル:
Eメールのメッセージ
+ (text/plain)
このメッセージを削除
このメッセージに返信
著者: Kimbro Staken
日付:  
題目: 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