ニコニコ動画(γ)のSMILEVIDEO動画をダウンロードするPerlコード(もう使えません)

いたちごっこになりそうな仕組みではある。自前ダウンローダに組み込んだので仕事するか…。
いたちごっこになった。とはいえs-skr以降に数字がついただけのうえ、どの数値でも同じflvが落ちてくるっぽいのでとりあえず1-8のランダム値を埋めときました。ついでにハッシュ取得ページも変更。おそらくSMILEVIDEOの動画をダウンロードする需要はかなり低いので、この仕様変更は純粋な負荷対策目的だと思います。あーあと、今後このコードの修正はしません。めんどくさいので。
nicovideon効果でいたちごっこが始まったね。ここのコードは使えなくなりました。とりあえず今使えるのはNotfuncさんのBookmarklet。ログインしてない人はむりです。

usage

perl nicodl.pl http://www.nicovideo.jp/watch/sm200

nicodl.pl

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;

my $permalink = shift;

$permalink =~ m|/sm(\d+)$|;
my $thumbhtml = get("http://www.smilevideo.jp/view?video_id=$1");
$thumbhtml =~ m|/smile\?i\=([^\"]+)\"|m;

my $hash = $1;
my $i = int(rand() * 8 + 1);
my $videourl = "http://s-skr$i.smilevideo.jp/smile?v=$hash";

mirror($videourl, "./$hash.flv")