正規表現（urlをリンクさせる）

質問

$comment = "http://www.yahoo.co.jpとhttp://www.google.co.jp/";
$comment =~ s/(http\:\/\/[a-zA-Z0-9\.\$\,\;\:\&\=\?\!\*\~\@\#\_\(\)\%\+\-\/]*)/<a href=\1>\1<\/a>/mg;

上の文字列では下記の様に置換されるのですが問題ないのですが
<a href=http://www.yahoo.co.jp>http://www.yahoo.co.jp</a>と<a href=http://www.google.co.jp/>http://www.google.co.jp/</a>

コメントが
　$comment ="http://www.yahoo.co.jp＆ｌｔ；ｂｒ＆ｇｔ；http://www.google.co.jp/";
だと
<a href=http://www.yahoo.co.jp＆ｌｔ；ｂｒ＆ｇｔ；http://www.google.co.jp/>http://www.yahoo.co.jp＆ｌｔ；ｂｒ＆ｇｔ；http://www.google.co.jp/</a>
のように置換されてしまいます。

下記の様に置換する正規表現を教えてください。
<a href=htt://http://www.yahoo.co.jp>http://www.yahoo.co.jp</a>＆ｌｔ；ｂｒ＆ｇｔ；<a href=http://www.google.co.jp/>http://www.google.co.jp/</a>

回答No.1

twinkleluz · ベストアンサー

「＆ｌｔ；ｂｒ＆ｇｔ；」は半角文字でしょうか？
全角文字なら問題なくできるのですが。

半角なら、タグがサニタイズされているわけですね。
とすると、URLのリンクを作る前にサニタイズされた文字をURLに含まれない文字でエスケープすればうまくいくと思います。

たとえば中括弧"{","}"はURLには含まれない文字なので・・・

-------------------------------------------------
# "&○○;"を"{&○○;}"に置換する
$comment =~ s/(&[#a-zA-Z0-9]*;)/{\1}/mg;
# URLリンク
$comment =~ s/(http\:\/\/[a-zA-Z0-9\.\$\,\;\:\&\=\?\!\*\~\@\#\_\(\)\%\+\-\/]*)/<a href=\1>\1<\/a>/mg;
# "{&○○;}"を元に戻す
$comment =~ s/\{(&[#a-zA-Z0-9]*;)\}/\1/mg;
-------------------------------------------------
これで期待通りにURLリンクができます。
ただし、URL中に"&○○;"という文字が含まれる場合、うまく動きません。それだけは注意してください（普通"&"も";"もURLエンコードされるのでそんな自体は滅多にないと思いますが・・・）。

お礼

twinkleluzさん、回答ありがとうございました。

$comment =~ s/＆ｌｔ；/{＆ｌｔ；}/mg;
$comment =~ s/(http\:\/\/[a-zA-Z0-9\.\$\,\;\:\&\=\?\!\*\~\@\#\_\(\)\%\+\-\/]*)/<a href=\1>\1<\/a>/mg;
$comment =~ s/{＆ｌｔ；}/＆ｌｔ；/mg;

URLの中に＆ｌｔ；や＆ｇｔ；の文字は含まれないと思うので問題ないです。ありがとうございました。
Gooもhttp://の後の<がURLの一部としてリンクされちゃうみたいですね。
http://www.yahoo.co.jp</a>
http://www.yahoo.co.jp全角