perl - 通过 LWP 登录 Way2sms 失败

Question

我正在尝试通过 LWP登录Way2sms 。该页面的源代码说登录表单（在这种情况下，它似乎是正文中所有内容的根节点）有一个 action 属性''，我在其他一些 Stackoverflow 帖子中读到，指向的 URL包含该表单的页面。移动和密码字段的name属性可从源代码中获得，所以我尝试了这个：

use URI;
use HTML::TreeBuilder;
use LWP;
open f, "> way2sms.txt";
$browser = LWP::UserAgent->new(agent=>'Mozilla/4.76 [en] (Windows NT 5.0; U)');
$resp = $browser->post("http://site2.way2sms.com/content/index.html",[username=>$username,password=>$password]);
if ( $resp->is_redirect ) {
    $resp = $browser->get( $resp->header('Location') );
}

print f $resp->content;
close f;

使用正确的电话号码和密码，提交应该返回一个个性化页面，其中包含一条消息，例如Welcome, Kaustav Mukherjee。所以很自然，我希望代码打印出 5。但是，虽然打印出Logged表示成功，但没有打印出 5，表明登录失败。怎么做？（请不要建议使用Mechanize！）

Answer 1