そういえば聞かれたので

適当に書いてみた。warningでてるのは気のせい

ソース　nico-html.pl

#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;
use WebService::Simple;
use utf8;

#sm9
my $url = sprintf( 'http://www.nicovideo.jp/api/getthumbinfo/%s' , $ARGV[0] );


my $ws = WebService::Simple->new( base_url => $url );
my $res = $ws->get()->parse_response;

#warn Dumper $res;
my @data = <DATA>;
my $text = "@data";

printf($text,
        $res->{thumb}{title},
        $res->{thumb}{thumbnail_url} ,
        $res->{thumb}{title} ,
        $res->{thumb}{title} ,
        $res->{thumb}{view_counter} ,
        $res->{thumb}{comment_num},
        $res->{thumb}{mylist_counter},
        $res->{thumb}{last_res_body},
);

__DATA__
<table>
<tr >
<td colspan="2">%s</td>
</tr>
<tr>
<td><img src="%s" alt="%s"></td>
<td>%s<br />
再生数：%d　コメント数：%d マイリスト数：%d<br />
最新コメント：%s</td>
</tr>
</table>

実行

./nico-html.pl sm3395557

結果

[tomyhero@xen sample]$ ./nico-html.pl sm9
[tomyhero@xen sample]$ ./nico-html.pl sm3395557
Wide character in print at ./nico-html.pl line 20, <DATA> line 11.
<table>
 <tr >
 <td colspan="2">【バカ日本地図】〜全国のバカが考えた脳内列島MAP〜</td>
 </tr>
 <tr>
 <td><img src="http://tn-skr2.smilevideo.jp/smile?i=3395557" alt="【バカ日本地図】〜全国のバカが考えた脳内列島MAP〜"></td>
 <td>【バカ日本地図】〜全国のバカが考えた脳内列島MAP〜<br />
 再生数：743092　コメント数：433613 マイリスト数：21838<br />
 最新コメント：ｗｗｗｗｗｗ あきちｗ ああああああああああ へった ｗｗｗ... </td>
 </tr>
 </table>
[tomyhero@xen sample]$