Yusukebe::Tech

お、これでとってこれるじゃん。 検索語からYouTubeのビデオIDをとってくるシンプルな実装。

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use URI;
use Encode;

my $query = "oasis";
my @vi = search_youtube($query,"video_view_count");
foreach my $i (@vi) {
        print "$i¥n";
}

sub search_youtube{
        my ($query, $search_sort) = @_;
        my $url  = URI->new('http://youtube.com/results');
    $query = encode('UTF-8', $query);
    my $ua = LWP::UserAgent->new;
        $url->query_form(
                                         search_type     => 'search_videos',
                                         search_query    => $query,
                                         search_sort     => $search_sort,
                                 );
        my $response = $ua->get($url);
        unless($response->is_success){
                return;
        }
        my $content = $response->content;
        my @video_id = ();
        while($content =~ m!<div class="vtitle">.*?<a href="/watch¥?v=(.*?)"!gs){
                push(@video_id,$1);
        }
        return @video_id;
}

ノエルとクリスが絡んでる映像みっけ