Perl から Outputz に文字数を投げる

perl で LWP モジュールを使って、Outputz に文字数を投げるサンプルを書いてみた。引数は順に、キー、URI、文字数をしていします。ツールとして使うなら agent に User-Agent を指定してアクセスするといいかもね。

#!/usr/bin/perl -w

use strict;
use warnings;

use LWP::UserAgent;

my $key  = shift;
my $uri  = shift;
my $size = shift;

my %params = ('key' => $key, 'uri' =>$uri, 'size' => $size);

my $ua = LWP::UserAgent->new;

#$ua->agent('perl-outputz/0.0.1');

my $res = $ua->post('http://outputz.com/api/post', \%params);

printf "status: %d\n", $res->code;
print $res->content  if ($res->is_success);

exit 0;