WWW::Mechanize は相変わらず便利

WWW::Mechanize は相変わらず便利 #

たまには Perl ネタでも書いてみる

use strict;
use warnings;
use utf8;

use WWW::Mechanize;
{
    my $m = WWW::Mechanize->new();
    $m->agent_alias('Mac Mozilla');

#    warn "start";
    $m->get( 'http://aws-portal.amazon.com/gp/aws/developer/account/index.html?ie=UTF8&action=activity-summary' );

#    warn "login page";
    $m->field('email' => 'email-address');
    $m->field('create' => '0');
    $m->field('password' => 'password');

#    warn "submit";
    $m->click_button( input => $m->current_form()->find_input(undef, 'image') );
    my $report = $m->content();
}

exit;

Amazon の従量課金が気になるあなたは、こんな感じで自動で持ってくるといいよ

まぁ、あれだ
動いているもの、採用されているものを無闇矢鱈と作り直すのは、運用面ではどうかと思うし、自分勝手に色んなライブラリどんどん採用するのもどうかと思うが、これくらいはよかろう

See Also

Copyright © 髭。/ Hugo + hugo-book