perl中的远程web表单发布

我对perl比较陌生，我试图创建一个perl脚本来远程登录web表单并返回成功或失败。但它不工作或者我失去了一些东西，再加上它给我的错误信息：这是我写的：perl中的远程web表单发布

#!/usr/bin/perl 

use LWP::UserAgent; 
use HTTP::Response; 
use HTTP::Request::Common qw(POST); 


$ua = LWP::UserAgent->new; 
$ua->agent("Mozilla 8.0..."); 

$username = "username"; 
$password = "password"; 

my $req = (POST 'http://www.domain.com/login.php', 

["Username" => "$username", 
"Password" => "$password"]); 

$request = $ua->request($req); 
$content = $request->content; 

if ($res->is_success) { 
    print ("success"); 
    exit; 
} 

else { 
print ("failure"); 
}

这个脚本不运行在所有和我得到的错误是：

Can't call method "is_success" on an undefined value at c:\remotelogin.pl line 24.

来源

2011-08-20 SilverShadow

那么，你没有任何名为'$ res'的变量，所以它是有道理的，它是未定义的。 –

使用严格;使用警告; – Bruce

贬低，因为我怀疑这个问题会对其他人有用。如果这个问题纯粹是针对这个特定错误信息的讨论（“不能在未定义的值上调用方法X”）和'use strict;使用警告;'，它可能更有用。 –

它可以强调也不过分它是

use strict; 
use warnings;

特别是学习Perl的时候是多么重要。在这种情况下，您有一个未声明的变量$res。由于错字或许？如果你已经使用严格和警告，你会得到一个编译错误：

Global symbol "$res" requires explicit package name..

严格，并警告可能给很多吓人的错误，但是一旦你学会如何避免这些，你会意识到他们节省您的时间和而不是相反。

来源

2011-08-20 19:18:58 TLP

$res应替换为$request。

而且use strict; use warnings;

来源

2011-08-20 18:55:36 Bruce

perl中的远程web表单发布

回答

相关问题