List all youtube videos for a user

List all youtube videos for a user

#!/usr/bin/env perl
use strict;
use warnings;
use XML::LibXML;

my $user = shift || die "No user specified\n";

my $feed_url = (
    "http://gdata.youtube.com/feeds/api/users/$user/uploads?" .
    'max-results=50'
);

my $parser = XML::LibXML->new;
my $xpc = XML::LibXML::XPathContext->new;
$xpc->registerNs('atom', 'http://www.w3.org/2005/Atom');

while ($feed_url) {
    my $doc = eval { XML::LibXML->load_xml(location => $feed_url) };
    $xpc->setContextNode($doc->documentElement);

    undef $feed_url;
    if (my $next = $xpc->findvalue('//atom:link[@rel="next"]/@href')) {
        $feed_url = $next;
    }

    for my $entry ($xpc->findnodes('//atom:feed/atom:entry')) {
        my ($id) = $xpc->findvalue('atom:id', $entry) =~ m{([^/]+)$};
        print "http://www.youtube.com/watch?v=$id\n";
    }
}