ニコニコ動画のサムネイル画像を取得する Perl スクリプト - 日向夏特殊応援部隊

まぁ、散々皆さんやってらっしゃるんじゃないかと思いますが、 #!/usr/bin/perl use strict; use warnings; use Perl6::Say; use URI::Template; my $video_uri = shift @ARGV; exit unless ($video_uri); my $video_uri_tmpl = URI::Template->new('http://www.nicovideo.jp/watch/sm{video_id}'); my $thumb_uri_tmpl = URI::Template->new('http://tn-skr{server_id}.smilevideo.jp/smile?i={video_id}'); my %result = $video_uri_tmpl->deparse($video_uri)

[ZIGOROu]

うはｗ koizuka さん降臨。なるぽです＞host割り振り

[taroukaja]

プログラム

[otsune]

URI::Templateはこの手のアドレス切り抜きがスッキリ書けて良いな

[jukuin2000]

「最近ブログに書くことがないから、この辺でも適当に書いておくか」みたいなモチベーションで書いたんじゃないかと邪推してみる

[koizuka]

host割り振りは予告無く変更するので要注意