2009年6月15日星期一

[PerlChina] www::mechanize 选择 form 问题

下面的代码总是提示没有1号表单(There is no form numbered 1 at ....):
#---------- CODE ----------------
my $mech = WWW::Mechanize->new(agent=>'Mozilla');
$mech->get('http://wap.kaixin001.com');
$mech->form_number(1);
#---------- CODE ----------------

请教:该如何选中这个网页中的表单?
下面是 wap.kaixin001.com 的内容,
#------------ wap.kaixin001.com 首页 ----------------------------
<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>开心网</title></head><body><div><img src="http://img.kaixin001.com.cn/wapi2/logo.gif" alt="开心网" /></div><div id="info">通过开心网,您可以与朋友保持联系,分享你的生活和快乐。</div><div id="login_area"><form method="post" action="/login/login.php"><span>账号(电子邮件):</span><p><input name="email" type="text" size="10" value="" class="ipt" maxlength="200"/></p><span>密码(区分大小写):</span><p><input name="password" type="password" value="" class="ipt" maxlength="200" size="10"/></p><p><input name="remember" type="checkbox" value="1" checked="true"/>自动为我登录</p><p><input type="submit" value=" 登 录 " class="rb" /></p></form><a href="/common/notice.php">新版试运营说明</a><br/><p>还没有加入开心网?请用电脑上www.kaixin001.com注册。</p></div><div class="list1"><a href="http://down2.ucweb.com/download.asp?f=chens@kaixin001&amp;url=wap.kaixin001.com&amp;title=%E5%BC%80%E5%BF%83%E7%BD%91"><font color="339933">推荐用UCWEB快速浏览本站</font></a></div> <div id="bottom">
<a href="/common/help.php?index=1" class="tdno">帮助</a> 
<a href="/feedback/feedback.php?index=1" class="tdno">反馈</a><br/>
06-16 12:12<br/>
&#169;开心网 2009
</div>
</body>
</html>


网易全新推出企业邮箱 --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

没有评论: