YouTubeで動画を検索 (gdata編)

Perl

YouTubeで検索して動画のアドレスを得るためには、
APIキーが必要だと思っていたのですが、あっさりできました。

search_youtube.pl:

#!/usr/bin/env perl

use strict;
use LWP::Simple;
use XML::Simple;
use URI::Escape;
use Data::Dumper;

my $word = shift;
my $baseurl = "http://gdata.youtube.com/feeds/api/videos";
my $xml = XMLin(get($baseurl."?q=".uri_escape($word)."&max-results=10"));
#print Dumper($xml);
for my $key (keys %{$xml->{entry}}){ 
    print $xml->{entry}{$key}{title}{content};
    print " (".$xml->{entry}{$key}{link}[0]{href}.")\n";
    #print Dumper($xml->{entry}{$key}{link});
}

1;

result:

#perl search_youtube.pl 自由人香大人
 
自由人・香大人- 香川大学水野康一教授 (http://www.youtube.com/watch?v=buXqRQxbgbw&f
eature=youtube_gdata)
自由人・香大人- 香川大学山本珠美先生 (http://www.youtube.com/watch?v=qntxVoQ7gFs&feature=youtube_gdata)
自由人・香大人- 香川大学神江伸介教授 (http://www.youtube.com/watch?v=H6XTUD9gx2Y&feature=youtube_gdata)
自由人香大人 -香川大学 澤田 秀之准教授 知能機械システム工学科 (http://www.youtube.com/watch?v=cmDTKieNC78&feature=youtube_gdata)
自由人香大人- 香川大学林敏浩先生 (http://www.youtube.com/watch?v=FYUHGTWchvs&feature=youtube_gdata)
自由人香大人 - 富永浩之准教授 工学部信頼性情報システム工学科 (http://www.youtube.com/watch?v=A4Ux4X4r5Mc&feature=youtube_gdata)
自由人香大人 - 香川大学 末永慶寛教授 安全システム建設工学科 (http://www.youtube.com/watch?v=Iigj1hiATVA&feature=youtube_gdata)
フェアトレードカフェ in 大学祭 (http://www.youtube.com/watch?v=NzV9y7JRZuY&feature=youtube_gdata)
...

他にもオプションがあったり、項目があったので、
また使うときにゆっくり見てみようと思います。


ref:

Youtube Data API での動画検索方法 - 理系学生日記
デベロッパー ガイド: Data API プロトコル - API クエリ パラメータ - YouTube — Google Developers
デベロッパー ガイド: Data API プロトコル - 動画フィードのタイプ - YouTube — Google Developers