« Playlist: Vocaloids 2012.03 | ホーム | マイリスト・グループ »

2012年4月11日

動画のコメントを得る

目下のところ「野良モジュール」である Net::NicoVideo の話で、ニコニコ動画の、指定した動画のコメントを取得するメソッドを、追加した。

下のは使い方のサンプルで、オプション -c で件数、デフォルトは 250 らしい?  -f をたてると、投稿者コメントに限定する(らしい。未確認... )

#!/usr/bin/env perl

use 5.12.0;
use warnings;
use Net::NicoVideo;

use Getopt::Std;
my $opts = { c => 250 };
getopts('c:f',$opts);

my $video_id = $ARGV[0] or die "usage: $0 [-c num] [-f] video_id \n";

my $nnv = Net::NicoVideo->new({
    email       => 'your@mail.address',
    password    => 'and-password',
    });

my $thread = $nnv->fetch_thread( $video_id, {
    chats => $opts->{c},
    fork => $opts->{f},
    });

say $thread->count;

for my $comm ( $thread->get_comments ){
    say $comm->value;
}

これに限らず、総じてメソッド名や API すらも変えるかもしれない。まだアルファ版。だけど、いまのところでもダウンロードや動画情報管理には、けっこう使える、かな。

しかしニコニコ動画はどれだけ機能があるんだろ。 "Net" を冠したモジュールにするからには、機能を網羅してからアルファを取ろうと思っていたけれど、じぶんではほとんど使わない上にちょっと範囲が広すぎるから、やりきれない。さて、どうしたものやら。

コメントする

OpenID対応しています OpenIDについて

このブログ記事について

このページは、hiroakiが2012年4月11日 02:34に書いたブログ記事です。

ひとつ前のブログ記事は「Playlist: Vocaloids 2012.03」です。

次のブログ記事は「マイリスト・グループ」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。