YouTube動画のURLを正規表現で埋め込みコードに変換するためのPerlコード

掲示板などのスレッドやコメント欄に投稿されたYouTube動画のURLを埋め込みコードに変換する方法を、 ネットで検索していろいろ調べましたが、YouTube動画のURLは、http://www.youtube.com/watch?v={VID}とhttp://youtu.be/{VID}という 2種類の形式があるようで、イマイチうまくいきませんでした。

結局、以下のコードで埋め込みコードへの変換は出来ましたが、改良の余地がまだかなりありそうです。

sub _url_convert {
    my $str = shift;

    if ($str =~ m/http:\/\/www\.youtube\.com\/watch\?v=([a-zA-Z0-9]+).*/i) {
        my $vid = $1;
        $str =~ s/(http:\/\/www\.youtube\.com\/watch.*)/<iframe width="480" height="360" src="http:\/\/www.youtube.com\/embed\/$vid?rel=0" frameborder="0" allowfullscreen><\/iframe>/g;
    }
    elsif ($str =~ m/http:\/\/youtu\.be\/([-_a-zA-Z0-9]+)/i) {
        my $vid = $1;
        $str =~ s/(http:\/\/youtu\.be\/[-_a-zA-Z0-9]+)/<iframe width="480" height="360" src="http:\/\/www.youtube.com\/embed\/$vid?rel=0" frameborder="0" allowfullscreen><\/iframe>/g;
    }

    return $str;
}

正規表現クックブック
オライリージャパン 著者：Jan Goyvaerts,Steven Levithan

amazon.co.jpのカスタマーレビューを見る
powered by amalink

kagahiroの検索リスト