« 動画のコメントを得る | ホーム | NicoAPI.Mylist のメソッド類を追加 »

2012年4月12日

マイリスト・グループ

昨日に引き続き Net::NicoVideo の話。マイリストの作成ぐらいできるようにしてみよう、ということで、手始めに mylistgroup というオブジェクトを追加した。これは、ログインしたユーザのマイリスト・グループ、つまり作成したマイリストの、タイトルとか ID の情報。

以下はその使い方... 昨日のと同じような具合に。

#!/usr/bin/env perl

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

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

my $mylistgroup = $nnv->fetch_mylistgroup;

say 'status: '. $mylistgroup->status;
unless( $mylistgroup->is_status_ok ){

    say $mylistgroup->error_description;

}else{

    for my $mylist ( @{$mylistgroup->mylistgroup} ){
        say '-----';
        say $mylist->{id};
        say $mylist->{name};
        say $mylist->{description};
    }

}

マイリスト・グループには複数のマイリストがあるので、その配列を得る。要素のマイリスト自体をクラスに定義するべきだけど、 RSS で取得するほうのマイリストで名前を使ってしまっていた。とりあえずハッシュで持ってるけれど、修正するです。

コメントする

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

このブログ記事について

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

ひとつ前のブログ記事は「動画のコメントを得る」です。

次のブログ記事は「NicoAPI.Mylist のメソッド類を追加」です。

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