ちょっと書いてみた Perl スクリプトをメモっておく。 #!/usr/bin/env perl use strict; use warnings; use WWW::Mechanize; use Web::Scraper; use utf8; use Encode; my $mech = 'WWW::Mechanize'->new('autocheck', 1); $mech->get('http://www.ablog.co.jp/login'); $mech->submit_form('fields', {'name', 'foo', 'password', 'bar'}); $mech->get('http://www.ablog.co.jp/contract'); $mech->submit_form(); my $scraper = scraper { use utf8; pr