为什么我没有从 LWP::UserAgent->new() 获得定义的值？

Question

我在使用 cookie_jar 方法时收到此错误：

Can't call method cookie_jar on an undefined value

这是我的代码：

my $cookie_jar= new HTTP::Cookies;
my $ua=new LWP::UserAgent;
my %cookies= fetch CGI::Cookie;
my $encoded=$cookies{'SCred'};
$cookie_jar->set_cookie(1, "SCred", $encoded, "/", $SSO_DOMAIN,  "", 0, 0, 60*60, 0);
$ua->cookie_jar($cookie_jar); # I get error on this line

知道为什么收到此错误吗？

Answer 1

我已经尝试过你的代码（带有严格的警告和我认为必需的模块，并将自由变量转换为字符串）：

kyle@indigo64 ~[home*]$ cat x.pl
use strict;
use warnings;
use HTTP::Cookies;
use LWP::UserAgent;
use CGI::Cookie;

my $ua         = new LWP::UserAgent;
my %cookies    = fetch CGI::Cookie;
my $encoded    = $cookies{'SCred'};

my $cookie_jar = new HTTP::Cookies;
$cookie_jar->set_cookie(
  1, "SCred", '$encoded',
  "/", '$SSO_DOMAIN',  "",
  0, 0, 60*60, 0
);
$ua->cookie_jar($cookie_jar);

print "ua: ",$ua,"\n";
print "ua->cookie_jar: ",$ua->cookie_jar,"\n";
mortis@indigo64 ~[home*]$ perl x.pl
ua: LWP::UserAgent=HASH(0x82f8cc8)
ua->cookie_jar: HTTP::Cookies=HASH(0x82f8b84)
kyle@indigo64 ~[home*]$ 

并且它有效。 您可能想发布一个更完整的示例，或者在 '$ua = new...' 和 '$ua->cookie_jar' 行之间是否有行，其中 $ua 被重新分配或设置为 undef？ 如果您在调用 cookie_jar 之前打印“$ua”的值，您应该会看到它是 undef，它必须在第一次赋值和调用该方法之间的某个位置被重置。

Answer 2

为了排除任何奇怪的交互，请尝试以下操作：

my $cookie_jar = HTTP::Cookies->new;
my $ua = LWP::UserAgent->new;
my %cookies = CGI::Cookie->fetch;
my $encoded = $cookies{'SCred'};
$cookie_jar->set_cookie(
    1, "SCred", $encoded, "/", $SSO_DOMAIN,  "", 0, 0, 60*60, 0
);
$ua->cookie_jar($cookie_jar); # I get error on this line

现在，由于某种原因，$ua 未定义，这意味着构造函数调用：

my $ua = LWP::UserAgent->new;

失败。 我对 fastcgi 不太熟悉。 但是，LWP::UserAgent 在构造函数中出现任何故障时都会发出嘎嘎声：我不确定您如何到达有问题的行。

你检查过服务器日志吗？ 完全在黑暗中拍摄：以下内容是否向错误日志添加了任何有用的信息？

my $ua = eval { LWP::UserAgent->new }
    or warn "LWP::UserAgent->new failed: $@";

Answer 3

如果这是您收到的实际错误，则这不是 cookie_jar 的问题。 这恰好是您尝试调用的第一个方法。 检查您在创建用户代理时是否确实获得了一个对象。

删除所有 cookie 内容并尝试 agent 方法：

use strict;
my $ua = eval { LWP::UserAgent->new }
    or die "Could not make user-agent! $@";
$ua->agent("TestAgent");

如果构造函数中出现任何问题，您应该能够捕获它。 然而，如果你的脚本还没有死掉，我认为你还有其他问题。 如果 LWP::UserAgent::new 遇到问题，它就已经崩溃了。 它唯一可以返回的是它已经调用了方法的定义值。