Perl：添加错误检查

Question

我有以下代码，我想知道如何添加错误检查？

my $login = "https://steamcommunity.com/login/home/?goto=market%2F";
my $username = "USR";
my $password = "PASS";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($login);
$mech->form_name('loginForm');
$mech->field(login => $username);
$mech->field(passwd => $password);
$mech->click();

提前感谢Seb Morris

Answer 1

当互联网登录失败时，没有“错误条件”。您必须查看站点返回的HTML，以检查登录失败时发送的任何文本。

您应该使用类似HTML::TreeBuilder::XPath的内容来解析和导航HTML。

请注意，许多网站在将页面传递到客户端后使用JavaScript来修改页面。 WWW::Mechanize不支持JavaScript，因此您可能无法执行所需的操作。