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

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