まぁ、散々皆さんやってらっしゃるんじゃないかと思いますが、 #!/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)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く