Veohって動画共有サイトのビデオ、FLVファイルをダウンロードするスクリプト書いた。
「google videoやyoutubeとかの動画を落として保存。」ってサイトがソース公開という神なことをしてくれていたので、解析する手間が省けた。どうもです。
これからPlaggerのFilter-FindEnclosuresのassetsを書く予定。
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
my $url = $ARGV[0];
my ( $id, $flv_url, $file_name );
$id = $1 if $url =~ m|videos/(.*)|;
$id = $1 if $id =~ /(.*)\?/;
die unless $id;
my $ua = LWP::UserAgent->new( keep_alive => 1 );
my $rest_url = "http://www.veoh.com/rest/video/$id/details";
my $content = $ua->get($rest_url)->content;
$flv_url = $1 if $content =~ /fullPreviewHashPath="(.*?)"/;
return unless $flv_url;
warn "$url => $id.flv\n";
$ua->request( HTTP::Request->new( GET => $flv_url ), "$id.flv" );