YouTube の flv の取得

Perl Google CPAN

CPAN の WWW::YouTube::VideoURI を使う事で解決。

#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use LWP::Simple;
use WWW::YouTube::VideoURI;

my $q = CGI->new;
my $v = $q->param('video');

my $yt = WWW::YouTube::VideoURI->new;
my $video_uri = $yt->get_video_uri($v);
print "Content-type: video/x-flv\n\n";
getprint($video_uri);

mimic28号でした。