#!/usr/bin/perl -I./lib #----------------モジュール------------------------ use CGI; my $query = CGI->new; my $youtubetitle = $query->param('youtubetitle'); use LWP::UserAgent; use Encode; use Jcode; #----------------html------------------------ print <<"HTML"; Content-type: text/html HTML #--------------------YouTubeここから--------------------------------------------------------- #■new設定■ my $ua = LWP::UserAgent->new; #■タイムアウトを設定10秒待つ■ $ua->timeout(10); #■ユーザエージェントを設定■ $ua->agent('Mozilla'); #文字削除実行 $youtubetitle =~ s/Lite//g; $youtubetitle =~ s/(Lite Version)//g; #■■■YouTube検索キーワード決定!■■■■■■■■■■■■■■■ my $youreq = HTTP::Request->new(GET => "http://gdata.youtube.com/feeds/api/videos/?vq=$youtubetitle"); #■XML入力 #■リクエスト結果を取得 my $youres = $ua->request($youreq); #■取得したページを新しい変数に入れる $youhensu = $youres->content; #■youtubeid抜き出し■ my @youtubeid = $youhensu =~ /api\/videos\/([^<]*)<\/id>/ig; if (@youtubeid ){ print qq|
|;}else {print qq|



Not Found
|; }