読者です 読者をやめる 読者になる 読者になる

ゆーすけべー日記

はてなBlogってどーなの!?

PerlでYouTubeのmpeg4を直接ダウンロードする - 勝手に添削?

Perl

YouTubeMP4をコマンドラインから使いたいとのこと。

でも、右クリックめんどうだなあ、ということでコマンドラインからダウンロードできるようにしてみた。

YouTubeMP4をコマンドラインから使いたい - Seeking for my unique color.

勝手に添削、というか添削になってないんだけど、 これってぶっちゃけわざわざYouTubeMP4にアクセスしないでもYouTubeのページから直接スクレイピングすればよくって、 以下のスクリプトで実現できます。あとMech使わなくてもLWPはGETすれば自動的にリダイレクト先をフェッチしてくれます。

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $url = $ARGV[0] || "http://www.youtube.com/watch?v=N7NTRPKfUtw";
my $ua = LWP::UserAgent->new;

my $response = $ua->get($url);
die $response->status_line unless $response->is_success;
my $content = $response->content;

if($content =~ /video_id=(.+?)&l.*?&t=(.+?)&/){
    my $mp4_url = "http://www.youtube.com/get_video?video_id=$1&t=$2&fmt=18";
    warn "downloading mp4 from $mp4_url\n";
    $ua->mirror($mp4_url, "$1.mp4");
}else{
    warn "Error\n";
}

Spidering hacks―ウェブ情報ラクラク取得テクニック101選
posted with yusukebe.com::AmazonSearch on 2008.3.16
  • Kevin Hemenway Tara Calishain 村上 雅章
  • 単行本 / オライリー・ジャパン (2004/05)
  • Amazon 売り上げランキング: 34884
  • Amazon おすすめ度の平均: 4.5
    • 5 回り道しても読む価値がありました
    • 5 『Hacks』の白眉
    • 5 混沌のWEBからデータを収集した人は必読
Amazon.co.jpで詳細を見る