Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Usage ATND::Lite
#!/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";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment