【Perl】 ニコニコ動画 『スナップショット検索API』

Perl Tips
初めて使った。
使い方は
ニコニコ動画 『スナップショット検索API』 ガイド

test.pl
use 5.14.0;
use warnings;
use utf8;
use autodie;
use FindBin;
use lib qq($FindBin::Bin/lib);
use IO::File;
use Encode;
use LWP::UserAgent;
use HTTP::Request::Common;

open my $fh, '<', "test.json";
my $json = do { local $/; <$fh> };
$fh->close();
my $uri = "http://api.search.nicovideo.jp/api/snapshot/";
my $req = HTTP::Request->new( 'POST', $uri );
$req->header('Content-Type' => 'application/json');
$req->content($json);
my $lwp = LWP::UserAgent->new;
my $ret = $lwp->request($req)->as_string;
say encode('cp932',decode('utf8', $ret));

open my $fh, '>',"niconico.txt";
$fh->say($ret);
$fh->close();
__END__
test.json
{
  "query":"高田馬場ミカド",
  "service":[
    "video"
  ],
  "search":[
    "title",
    "description",
    "tags"
  ],
  "join":[
    "cmsid",
    "title",
    "length_seconds",
    "start_time"
  ],
  "filters":[
    {
      "type": "equal",
      "field": "title",
      "value": "11月23日"
    },
    {
      "type": "equal",
      "field": "title",
      "value": "GGXrd"
    },
    {
      "type": "equal",
      "field": "title",
      "value": "GGXrd"
    },
    {
      "type": "range",
      "field": "start_time",
      "to": "2015-01-01 00:00:00"
    }
  ],
  "from":0,
  "size":100,
  "sort_by":"start_time",
  "order":"asc",
  "issuer": "local"
}

PythonやPerl6でも良かったけど、ぱぱっと試したかったので。

※どれぐらい送信すると制限かかるんだろう。