perl - ニコニコ動画ダウンローダー新認証対応版

この仕様変更の影響は、ニコニコ動画ダウンローダーにも及びます。というわけで改訂版。

パスワード変更のお知らせ【更新 20:31】 - ニコニコ動画 開発者ブログ（新着情報）

以前プレミアムパスを設定していなかった、または設定したが忘れてしまった方はログインフォームの下にある【パスワードを忘れた】から新しいパスワードを設定してください。

とはいっても、変更する必要があったのはわずか一カ所、認証用のURIだけでしたが。

#!/usr/bin/env perl
#
# $Id: nicoget.pl,v 0.2 2007/08/26 12:56:00 dankogai Exp dankogai $
# original: http://yusukebe.com/tech/archives/20070803/124356.html
#

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use HTTP::Headers;
use CGI;
use YAML::Syck;

my $yaml = "$ENV{HOME}/.nicovideo.yml";
my $conf = YAML::Syck::LoadFile($yaml) or die "$yaml:$!";
$ARGV[0] =~ /(sm\d+)$/ or die "$0 [video_id|uri]";
my $video_id = $1;

my $ua = LWP::UserAgent->new( keep_alive => 1 );
$ua->cookie_jar( {} );

warn "login as $conf->{mail}\n";
$ua->post( "https://secure.nicovideo.jp/secure/login?site=niconico" => $conf );
$ua->get("http://www.nicovideo.jp/watch/$video_id");
my $res = $ua->get("http://www.nicovideo.jp/api/getflv?v=$video_id");
my $q   = CGI->new( $res->content );
my $url = $q->param('url') or die "Failed: " . $res->content;
warn "$url => $video_id.flv\n";
$res = $ua->request( HTTP::Request->new( GET => $url ), "$video_id.flv" );

よく見るとわかるのですが、認証用のURIはhttps:ですので、LWPをSSL対応させるために、Crypt::SSLeayもインストールしておいてください。この当たりの事情はLWP付属のREADME.SSLに書いてあります。

Enjoy!

Dan the (Nico|Perl)Monger

Comments

source に色が付いていないのが気になってソースをみてしまいました。

× perttyprint
○ prettyprint

ですね。

Posted by key at 2007年08月26日 22:51

keyさん、
あらま、ほんとだ。今度は色がついていると思います。
Dan the Typo Generator

Posted by 弾 at 2007年08月26日 22:53

もともと他の人のですよね。このスクリプトの原案って。
ま、original: 表記はありますけど、一瞬オリジナルが更新したのかと思っちゃいましたよ。

Posted by crudder at 2007年08月29日 15:58