root/lang/perl/misc/ogame_check.pl

#!/usr/bin/perl 
use strict;
use warnings;
use URI;
use WWW::Mechanize;
use Config::Pit;
use Web::Scraper;
use DateTime;
use YAML;

my $uni = shift || 'uni4';
# get password
#Config::Pit::switch('ogame');
my $config = pit_get("$uni.ogame.jp", require => {
        "username" => "otsune", 
        "password" => "your password on ogame.jp"
    });

# login
my $ogame_login = "http://$uni.ogame.jp/game/reg/login2.php";
my $uri = URI->new($ogame_login);
$uri->query_form(
    login => $config->{username},
    pass  => $config->{password}, 
    v    => 2,
);

# access
my $mech = WWW::Mechanize->new(cookie_jar => {});
my $response = $mech->get( $uri );

if (!$response->is_success || $response->content =~ /errormessage/){
   warn $mech->status();
   return; 
};

$mech->follow_link(url_regex => qr{index\.php}i);

# scrape
my $feed = scraper {
    process '//title', 'title' => 'TEXT';
    process 'tr.flight', 'entry[]' => scraper {
        process 'span.attack', title => 'TEXT', 
        process '//a[@class="attack"]/following-sibling::a', body => '@title';
        process '//div[starts-with(@id, "bxx")]', date => sub {
            my $dt = DateTime->now(time_zone=>'local');
            $dt->add( seconds=>$_->attr('title') );
            return $dt->iso8601();
        }
    }
}->scrape($mech->content, $mech->uri);

$feed->{link}  = $ogame_login;
$feed->{image} = 'http://board.ogame.jp/ogame_logo/jp.gif';

# output
binmode STDOUT, ":utf8";
print YAML::Dump $feed;

__END__
use Data::Dumper;
sub dump_utf {
 my $d = Dumper(@_);
 $d =~ s/\\x{([0-9a-z]+)}/chr(hex($1))/ge;
 print $d;
};