yancha api request sample

yancha_api_request_sample.pl

#!/usr/bin/env perl
#
## yanchaのAPIリクエストサンプル
##
## https://github.com/uzulla/yancha
##

use strict;
use warnings;
use utf8;
use feature qw(say);

use Encode;
use JSON;
use URI;
use LWP::UserAgent;

# API仕様
# https://github.com/uzulla/yancha/wiki/API%28%E4%BB%AE%29%E4%BB%95%E6%A7%98


my $uri = URI->new('http://yancha.hachiojipm.org:443/api/?tag=public&limit=1000');
my $ua  = LWP::UserAgent->new();
my $res = $ua->get( $uri );
die $res->status_line if $res->is_error;

my $content = decode_json( $res->content );


say "id : created_at_ms : nickname : text\n";
foreach my$post(@$content) {
    #print Dumper($post);
    print sprintf("%d : %s: %s : %s\n ",
        $post->{'id'}, 
        $post->{'created_at_ms'}, 
        encode('utf8', $post->{'nickname'}), 
        encode('utf8', $post->{'text'})
    );
}