モバイルにも対応できるようになった。
一部はiPhone 3G回線のみアクセス可能の制限中。
一部はiPhone 3G回線のみアクセス可能の制限中。
後は、CPANにNet::GooglePlusがでてくるのを待つばかり。。。


use strict;
use warnings;
use WWW::Mechanize;
my $url = 'site name';
my $id = 'your id';
my $pw = 'your pw';
my $mech = WWW::Mechanize->new();
$mech->get($url);
$mech->submit_form(
fields => {
'id' => $id,
'pw' => $pw,
},
);
print $mech->content;
exit;
$mech->add_handler(request_send => sub {
my $req = shift;
$req->dump;
return;
});
$mech->add_handler(response_done => sub {
my $res = shift;
$res->dump;
return;
});