ニコニコ動画のサムネ表示モジュール追加 (2012.01.12)

---

動画を紹介するときに、タイトル名でリンク張っていましたが、ニコニコ動画の場合ですとサムネイルを使ったバナーを表示できます。定型のフォーマットですので、動画のＩＤを置いて、バナー表示に展開するモジュールを作りました。自作のソフトで、継ぎ足しができるようにしてあるので、こういった対応が簡単にできて便利です。

---

元ソース

---

<PRE PPMOD="PpNiconico">
sm5820663
</PRE>

---

展開後

---

<iframe width="312" height="176" src="http://ext.nicovideo.jp/thumb/sm5820663" scrolling="no" style="border:solid 1px #CCC;" frameborder="0"><a href="http://www.nicovideo.jp/watch/sm5820663">sm5820663</a></iframe>

---

見え方

---

---

モジュールのソース

---

# $VER: module PpNiconico for ppmod. 1.0, 2012/01/12



package PpNiconico;



sub init
{
	my($child) = @_;

	main::putmessage('verbose', "module load.");

	main::putmessage('verbose', "config = '$child->{pathname}'");

	bless(\&parser_niconico);

	push(@main::parsers, \&parser_niconico);
}



sub parser_niconico
{
	my($child, @inhtml) = @_;

	main::putmessage('verbose', "child '$child->{pathname}'");

	my @outhtml = ();

	my $linebuff = '';
	foreach $linebuff (@inhtml)
	{
		my $movieid = $linebuff;
		main::putmessage('verbose', "movie id '$movieid'");
		if ($movieid !~ /^(sm|nm)\d+$/)
		{
			main::putmessage('error', "動画ＩＤの書式が違います。'$movieid'");
		}

		my $thumb = qq|<iframe width="312" height="176" src="http://ext.nicovideo.jp/thumb/$movieid" scrolling="no" style="border:solid 1px #CCC;" frameborder="0"><a href="http://www.nicovideo.jp/watch/$movieid">$movieid</a></iframe><BR>|;
		push(@outhtml, $thumb);
	}

	return @outhtml;
}



1;