Yusukebe::Tech

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" );