Usage ATND::Lite

atnd.pl

#!/usr/bin/env perl

use strict;
use warnings;
use ATND::Lite;
use Data::Dumper;
use utf8;
use Encode qw/encode_utf8/;

my $search = {
  keyword => ["iphone", "android"],
  ym  => '201108',
  count => 10,
};

my $obj = ATND::Lite->new(%$search);
my $ret = $obj->get_event();

for (@$ret) {
  print encode_utf8($_->{title})."\n";
  print $_->{description}."\n";
  print $_->{event_url}."\n";
}