@smate.NET: bk1nowreading.plWWW::Mechanize を使って bk1 の注文履歴を取得するスクリプトを作ってみました。取得した書籍リストは、トップページに Now Reading として貼り付けてます。 ■bk1nowreading.pl #!/usr/bin/perl -w use strict; use WWW::Mechanize; use HTML::Template; use Jcode; my $email = ''; my $password = ''; my $last = 10; my $url = 'http://www.bk1.co.jp/'; my $mech = WWW::Mechanize->new(); $mech->agent_alias('Windows IE 6'); $mech->get($url); $mech->follow_link(url_regex => qr/l
