YouTube Data APIの続き

先日(id:clouder:20080121:1200907843)書いたYouTube Data APIですが、結局モジュールは使わず以下のように、XML::Atom::Feedで取ってごにょっとやることにしました。一番これが楽でした、はい。

ちなみに以下はのは$ARGV[0]にvideo_idを入れてやると、その動画のタイトルを出力してくるというものです。

use strict;
use XML::Atom::Feed;

my $entry = XML::Atom::Entry->new(
    sprintf( 'http://gdata.youtube.com/feeds/api/videos/%s', $ARGV[0] )
);

my ( $title ) = $entry->elem->getElementsByTagName( 'media:title' );
warn $title->textContent;