作者writeman (夕阳武士)
看板Perl
标题[问题] 用mech连上pixnet
时间Thu Sep 4 19:45:33 2008
原本可以连上pixnet
但现在改版後却连不上了
有谁可以指导一下吗
我的程式如下
my $id='myid';
my $passwd='mypasswd';
my $mech=WWW::Mechanize->new();
$mech->get("
http://www.pixnet.net/");
$mech->success or die $mech->response->status_line;
$mech->form_number(2);
$mech->field('done' => '
http://blog.pixnet.net');
$mech->field('username' => $id);
$mech->field('password' => $passwd);
$mech->field('userLogin' => '');
$mech->submit();
$mech->success or die "post failed: ", $mech->response->status_line;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.114.204.22