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;