[問題] 用mech連上pixnet
原本可以連上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
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
