後で参照しないものはbackreferenceを生成しないほうが
効率がいいと思われ
あと_blankを囲む "" は省略可能(詳細はread.cgiスレ参照)。
my $check = '^|[\0-\177\240-\337](?:[\201-\237\340-\374]{2})*';
$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)
/$1<a href=\"$2\:$3\" target=_blank>$2\:$3<\/a>/go;
[\0-\177\240-\337]は[\0-\200\240-\337]のほうがよかった。
1ch でスクリプdのジケーンしてたら速攻デリられた
681 :
心得をよく読みましょう:01/10/15 11:31 ID:BHTBV+wm