| 記事No | ： 16150 |
| 投稿日 | ： 2019/05/16(Thu) 16:33:24 |
| タイトル | ： 本文中のメールアドレスにAutoLink機能を追加 |
| ID情報 | ： skanda41 |
| 投稿者 | ： すかたん |
| URL | ： http://www.kent-web.com/bbs/yybbs.html |
YY-BOARDを有り難く使わせて頂いております。
本文中にメールアドレスがあった場合にAutoLink機能を追加しようと思い、下のようなサブルーチンを組みました。
#-----------------------------------------------------------
# Mail Address自動リンク
#-----------------------------------------------------------
sub auto_link_m {
my $text = shift;
$text =~ s/\b([-\w.]+@[-\w.]+\.[-\w]+)\b/<a href=\"mailto:$1\">$1<\/a>/g;
return $text;
}
#-----------------------------------------------------------
殆どの場合はうまく働いているのですが、一部でメールアドレス先頭だけが文字化けしていまい、困っています。
アドバイス宜しくお願いします。
（現象）
メール： kodama@nhk.co.jp 倍角コロン＋スペース、ＯＫ
メール：kodama@nhk.co.jp 倍角コロン、先頭文字化け
メール:kodama@nhk.co.jp 半角コロン、ＯＫ
メールkodama@nhk.co.jp 倍角文字、ＯＫ
メール:(kodama@nhk.co.jp) 半角カッコ、ＯＫ
メール:（kodama@nhk.co.jp） 倍角カッコ、先頭文字化け
アドバイス宜しくお願いします。