urlを変数に入れたい。

質問

掲示板のコメント欄にURLが記入された場合は、一番初めに書き込まれたURLを変数に格納したいのですが、方法が考えつけません。
以下の書込み内容の場合で例えますと、
--------------------------------------------------
あいうえおhttp://hoge.com/かきくけこhttp://hoge.jp/
さしすせそhttp://hoge.net/たちつてと
--------------------------------------------------
$FORM{'comment'}から一番初めに書き込まれた文字列
(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)
を抽出して、変数に格納。
$url = 'http://hoge.com/';
このような感じです。

お手数ですが、宜しくお願いいたします。

回答No.1

ORUKA1951 · ベストアンサー

if( $FORM{'comment'} =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/){
$url=$&;
print "$url\n";}
# 複数を取り出したければ
@url = $FORM{'comment'} =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;
foreach(@url){print "$_\n";}
exit;

お礼

ご回答有難うございます。
大変助かりました。