The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
=pod

=encoding utf8

=head1 NAME

Net::NicoVideo::JA - ニコニコ動画サイトへの Perl インタフェース

=head1 VERSION

このモジュールは未完成です。
API は今後も変えられることが予想され、多くの機能が未実装です。

=head1 SYNOPSIS

    use Net::NicoVideo;

    my $video_id = $ARGV[0] or die;

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

    my $info = $nnv->fetch_thumbinfo( $video_id );
    my $flv  = $nnv->fetch_flv( $video_id );

    printf "download: %s\n". $info->title;
    if( $flv->is_economy ){
        warn "now economy time, skip\n";
    }else{
        my $save_path = sprintf '%s/Movies/%s.%s',
            $ENV{HOME}, $video_id, $info->movie_type;
    
        $nnv->fetch_watch( $video_id );
        $nnv->fetch_video( $flv, $save_path );
        
        if( -s $save_path == $info->size_high ){
            print "ok\n";
        }else{
            print "finished, but it may have broken.\n";
        }
    }

=head1 DESCRIPTION

ニコニコ動画は、日本で有名な動画共有サイトです。

配布 Net-NicoVideo は、ニコニコ動画のサイト内外でやりとりされる
各オブジェクト( HTTP メッセージ)へアクセスするためのインタフェースを提供します。
これにより、一貫したアクセス方法によってサイトへアクセスすることができ、
またカプセル化されたレスポンスを結果として得る事ができます。

そしてこのクラス Net::NicoVideo は、各オブジェクトを得る為の手続きを、
コンパクトに纏めたユーティリティとして、あります。

このクラスのインスタンスは、その内部では L<Net::NicoVideo::UserAgent> を利用しています。
言い換えれば、クライアントはより低レベルの仕事のために
L<Net::NicoVideo::UserAgent> を使う事ができます。

その場合は、アクセスの段取りにクライアントは自ら注意を払う必要があることでしょう。
アクセス対象のサイトには、あるオブジェクトを得る為に、守るべきルールが存在するからです。

たとえば、動画ファイルを取得したい場合は、まずサイトにログインし、
flv と呼ばれるオブジェクトをリクエストし、更に動画を閲覧した上で、
動画の URL をリクエストしなければなりません。

クラス Net::NicoVideo のインスタンスはそうした暗黙のルールをメソッドとしてまとめ、
ユーザに便宜をはかります。

いずれにしても、このモジュールを使う際には、
サイトのオブジェクトについて(たとえば flv とは何か、 thumbinfo とは何かなど)、
ある程度の知識が要るかもしれません。
ただ、そういった事柄については Web を探す事ですぐに答を得る事が出来るでしょう。

なお、ニコニコ動画は 2012 年 5 月にサイトがリニューアルされました。
このモジュールが使える範囲は「ニコニコ動画(原宿)」と呼ばれる、リニューアル前のサイトです。
「ニコニコ動画(原宿)」は、いつまで使えるかは、このモジュールの作者は知りません。
──このモジュールは、いまもまだ使えているでしょうか?

=head1 CONSTRUCTOR

コンストラクタは、フィールドを定義するハッシュ・リファレンスを受け付けます。

    my $nnv = Net::NicoVideo->new({
        user_agent  => LWP::UserAgent->new,
        email       => 'your-nicovideo@email.address',
        password    => 'and-password',
        delay       => 1,
        });

各フィールドには同名のアクセス・メソッドがあります。
そちらの説明を参照して下さい。

=head1 ACCESS METHOD (LOWER LEVEL)

フィールドへの低レベルのアクセス・メソッド。

デフォルトやバリデーションを介さない、
フィールドを直接に設定・取得するためのものです。
引数に値を与えた場合はその値をフィールドに設定します。

=head2 user_agent

サイトへ HTTP (または HTTPS )でアクセスするための
ユーザ・エージェントを取得、または設定します。
設定するユーザ・エージェントは L<LWP::UserAgent> のインスタンスか、
そのサブクラスのインスタンスである必要があります。

    $nnv->user_agent(LWP::UserAgent->new);
    $ua = $nnv->user_agent;

=head2 email

サイトにログインする際に要求されるメールアドレス。

    $nnv->email($email);
    $email = $nnv->email;

=head2 password

サイトにログインする際に要求されるメールアドレスに対するパスワード。

    $nnv->password($password);
    $password = $nnv->password;

=head2 delay

サイトへ連続したアクセスをする際に、アクセスごとの間に差し挟む待ち時間(秒)。

    $nnv->delay($seconds);
    $seconds = $nnv->delay;

=head1 ACCESS METHOD (UPPER LEVEL)

フィールドへの、高レベルのアクセス・メソッド。

低レベルのそれに対し、バリデーション、デフォルト値が用意されています。
コンストラクタでフィールドを設定した後のフィールドへのアクセスは、
通常は、これらを利用します。

=head2 get_user_agent

カスタマイズされたユーザ・エージェント L<Net::NicoVideo::UserAgent> の
インスタンスを作成して返します。

L<Net::NicoVideo::UserAgent> はフィールド user_agent に設定されたインスタンスを
装飾するデコレータになっています。
フィールド user_agent が設定されていない場合は、
デコレートされるコンポーネントとして L<LWP::UserAgent> のインスタンスが生成されます。

=head2 get_email

サイトにログインする際に要求されるメールアドレスを取得しますが、
フィールド email が未定義の場合は環境変数 NET_NICOVIDEO_EMAIL の値を返します。
それすらもなければ、単に undef が得られます。

ノート:要求しようとするサイトのコンテンツによっては、ログインが必要ない場合もあります。
従って、 email および password は、未設定が許容されます。

=head2 get_password

サイトにログインする際に要求されるメールアドレスに対するパスワードを取得しますが、
フィールド password が未定義の場合は環境変数 NET_NICOVIDEO_PASSWORD の値を返します。
それすらもなければ、単に undef が得られます。

=head2 get_delay

連続するアクセスの間に差し挟むディレイ秒を取得します。

フィールド delay が未定義の場合は環境変数 NET_NICOVIDEO_DELAY の値を返します。
さもなければ、デフォルトの 1 が得られます。

=head1 FETCH METHOD

コンテンツ・オブジェクトを取得するメソッド群。

このカテゴリのメソッドは、サイトの各コンテンツに対応しており、
それぞれ、取得したコンテンツを解析した結果を持っている
L<Net::NicoVideo::Content> のインスタンスを返します。

その、返されるオブジェクトの具体的な内容については、
コンテンツの種類ごとにサブクラスが定義されているため、
L<Net::NicoVideo::Content> 以下の各サブクラスを参照して下さい。

=head2 fetch_thumbinfo(video_id)

video_id に関する Thumbinfo オブジェクトを取得します。
なお Thumbinfo を得る為に、ログインは必要ありません。

=head2 fetch_flv(video_id)

video_id に関する Flv オブジェクトを取得します。

=head2 fetch_watch(video_id)

video_id に関する Watch オブジェクトを取得します。

Watch オブジェクトは仮想的なもので、実際は動画ページへアクセスし、
そこから得られる情報を持ったコンテンツ・オブジェクトです。

これは、サイトに対して、クライアントが動画を閲覧することを示します。
そしてその振る舞いは、 fetch_video を呼ぶ直前に必要なことになっています。

=head2 fetch_video(video_id | flv | url, @args)

第一引数に与えた video_id 、 flv オブジェクト、または直接の URL の動画のデータを取得します。
URL の場合、それは flv オブジェクトから取得できる URL でなければ意味をなさないでしょう。

取得したデータはそれ以降の引数によって処理される方法が異なります。
このメソッドは L<LWP::UserAgent> の request メソッドと同じで、
実際、内部では透過的にそれを呼んでいます。
たとえば、第二引数にスカラー値を与えた場合は、それはファイル・パスとして解釈され、
動画コンテンツはそのファイルに保存されます。
詳しくは L<LWP::UserAgent> の request メソッドを参照して下さい。

=head2 fetch_thread(video_id | flv, \%options)

第一引数に与えた video_id もしくは flv オブジェクトが示す動画の、コメントを取得します。

第二引数のハッシュ・リファレンスはオプションで、次のキーと値のペアを受け取ります。

=over 4

=item "chats" => number

最新のものから何件のコメントを取得するか。デフォルトは 250 です。

=item "fork" => boolean

取得するコメントを、動画オーナーのコメントだけに限定します。デフォルトは偽です。

=back

=head1 Tag

タグ検索のためのメソッド。

=head2 fetch_tag_rss(keyword, \%params)

keyword で指定したタグで動画検索を行い、結果を RSS 形式で返します。

オプションでハッシュリファレンス params を与える事ができます。
そのキーと値は次のとおりです。

=over 4

=item "sort" => 'f|v|r|m|l'

検索結果を並び替えるキーワードを指定します。

    f ... 投稿日時
    v ... 再生数
    r ... コメント数
    m ... マイリスト数
    l ... 再生時間

無指定のときは r コメント数になります。

=item "order" => a

並び替えの順序を指定します。 'a' を指定すると ASCEND つまり降順です。

無指定のときは DESCEND 昇順です。

=item "page" => number

検索結果が多い場合は、結果は幾つかのページに別れており、何番目のページを得るかを指定します。

無指定のときは 1 ページ目を得ます。

なお 1 ページは最大で 32 件です。

=back

=head2 fetch_tag_rss_by_recent_post(keyword, page)

投稿日時の降順で得るように params を固定して fetch_tag_rss を呼び出すショートカットです。

引数にはタグと、オプションでページ番号を指定します。

=head1 Mylist RSS

マイリストの RSS を取得するためのメソッド。

=head2 fetch_mylist_rss(mylist | mylist_id)

引数に指定した mylist または mylist_id のマイリストの
RSS を保持するコンテンツ・オブジェクトを返します。

ノート:非公開のマイリストでも、サイトにログインしていることで、それを得る事ができます(?)

=head1 NicoAPI BASE

NicoAPI へアクセスするための下地を得るためのメソッド群。

NicoAPI はマイリスト類を AJAX 手段で得る為に JavaScript で実装されているライブラリの名前空間で、
マイリスト類のデータの取得、更新、削除などのメソッドを持っています。
そして、取得するためのメソッド以外の実行には、アクセス・トークンが必要になります。

=head2 fetch_mylist_page

ログインしているユーザの「マイリスト」ページを取得し、
そのページを解析した結果を持つ L<Net::NicoVideo::Content::MylistPage> オブジェクトを返します。

主にアクセス・トークンを得るためのものです。

=head2 fetch_mylist_item(video_id)

ログインしているユーザで、 video_id に対する「マイリストの追加」ページを取得し、
そのページを解析した結果を持つ L<Net::NicoVideo::Content::MylistItem> オブジェクトを返します。

これにより video_id の動画に対する "item_id" および "item_type" を得る事ができます。

なお "item_type" は、動画に対してはゼロ "0" が固定の値となっていますが、
このメソッドではそれをリクエストして得たページのコンテンツ内容から動的に取得します。
また、そのページではアクセス・トークンが得られるのでついでにそれも取得します。

=head1 NicoAPI.MylistGroup

NicoAPI.MylistGroup のメソッド群。

マイリスト・グループを操作するメソッド群です。
これらのメソッドで、何かを取得すること *以外* の実行には、
アクセス・トークンが必要になります。

ただしトークン省略しても、それは内部で自動的に取得され、用いられます。
しかしすでにアクセス・トークンを持っている場合は、それを指定する事で、
アクセス・トークンの取得の為のサイトへのアクセスをなくす事ができます。

=head2 list_mylistgroup()

ログインしたユーザのマイリスト・グループのリストを取得します。

これは、 NicoAPI.MylistGroup#list に相当します。

=head2 get_mylistgroup(group_id)

指定した grpup_id のマイリスト・グループを取得します。

これは、 NicoAPI.MylistGroup#get に相当します。

=head2 add_mylistgroup(mylistgroup, [token])

ログインしたユーザにマイリスト・グループを追加します。

これは、 NicoAPI.MylistGroup#add に相当します。

=head2 update_mylistgroup(mylistgroup, [token])

マイリスト・グループの情報を更新します。

これは、 NicoAPI.MylistGroup#update に相当します。

=head2 remove_mylistgroup(mylistgroup, [token])

マイリスト・グループを削除します。

これは、 NicoAPI.MylistGroup#remove に相当します。

=head2 delete_mylistgroup(mylistgroup, [token])

remove_mylistgroup のエイリアスです。

=head1 NicoAPI.Mylist

NicoAPI.Mylist のメソッド群。

マイリストのアイテムを操作するメソッド群です。
これらのメソッドで、何かを取得すること *以外* の実行には、
アクセス・トークンが必要になります。

ただしトークン省略しても、それは内部で自動的に取得され、用いられます。
しかしすでにアクセス・トークンを持っている場合は、それを指定する事で、
アクセス・トークンの取得の為のサイトへのアクセスをなくす事ができます。

=head2 list_mylist(group_id)

group_id のマイリスト・グループのマイリスト一覧を得ます。
これは、 NicoAPI.Mylist#list に相当します。

=head2 add_mylist(group_id, item, [token])

マイリスト・アイテム item を group_id のマイリスト・グループに追加します。
これは、 NicoAPI.Mylist#add に相当します。

=head2 update_mylist(group_id, item, [token])

group_id のマイリスト・グループのマイリスト・アイテム item を更新します。
これは、 NicoAPI.Mylist#update に相当します。

=head2 remove_mylist(group_id, item, [token])

group_id のマイリスト・グループのマイリスト・アイテム item を削除します。
これは、 NicoAPI.Mylist#remove に相当します。

=head2 delete_mylist(group_id, item, [token])

remove_mylist のエイリアスです。

=head2 move_mylist(src-group_id, dst-group_id, item, [token])

マイリスト・グループ src-group_id のマイリスト・アイテム item を
マイリスト・グループ dst-group_id へ移動します。
これは、 NicoAPI.Mylist#move に相当します。

=head2 copy_mylist(src-group_id, dst-group_id, item, [token])

マイリスト・グループ src-group_id のマイリスト・アイテム item を
マイリスト・グループ dst-group_id へ複製します。
これは、 NicoAPI.Mylist#copy に相当します。

=head1 UTILITY METHOD

その他ユーティリティ。

=head2 through_login(ua)

引数に与えたユーザ・エージェント L<Net::NicoVideo::UserAgent> のインスタンスを、
ログイン・ページへ導き、そしてログインを行います。
そして、その結果を持たせた元のユーザ・エージェントを返却します。

引数に与えたインスタンスと、返却されるインスタンスは同じインスタンスです。

典型的には、次のように使われます。
ログインが必要なページを、まずログインすることなしにアクセスを試み、
そのレスポンスから、ログインが要求されている事を知ったとき、
はじめてそこでログインを試み、
そしてログインした状態でコンテンツを改めて取得します。

    $res = $ua->request_mylist_rss($mylist);
    unless( $res->is_authflagged ){              # if not logged-in
        $ua = $self->through_login($ua);         # login
        $res = $ua->request_mylist_rss($mylist); # try again
    }

ログインに失敗した際は croak されます。

=head2 download(video_id, file)

動画ファイルをダウンロードするための一連の段取りをまとめた、
ショートカットです。

忙しい時には、ワンライナーでお望みの動画をダウンロードできます。
次のように:

    $ perl -MNet::NicoVideo -e 'Net::NicoVideo->new->download(@ARGV)' \
        smNNNNNN ./smile.mp4

ただし、これから説明する環境変数を予めセットしておく必要があるでしょう。

ノート:この例では、出力ファイルを MP4 と見越して拡張子を mp4 としていますが、
ニコニコ動画で扱われている動画のメディア・ファイルは、 MP4 かもしれませんが、
そうでないかもしれません。現在知られているのは MP4, FLV または SWF のいずれかです。
どの種類かは、前もって Thumbinfo を取得して、その内容から判断することもできます。

=head1 ENVIRONMENT VARIABLE

    NET_NICOVIDEO_EMAIL
    NET_NICOVIDEO_PASSWORD
    NET_NICOVIDEO_DELAY

これらの明らかなる名前の環境変数が、その名の示すとおりの役割で有効です。

=head1 SEE ALSO

L<LWP::UserAgent>
L<Net::NicoVideo::Content>
L<Net::NicoVideo::UserAgent>

=head1 REPOSITORY

Net::NicoVideo は Github にホストされ、その上で開発が進められています。

L<https://github.com/hiroaki/Net-NicoVideo>

バグ情報、パッチ、激励のコメントを歓迎します。

=head1 AUTHOR

WATANABE Hiroaki E<lt>hwat@cpan.orgE<gt>

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut