为什么我不从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被重新分配或以其他方式设置为unfef？如果您在致电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. 。那只是您尝试调用的第一种方法。当制作用户代理时，检查您实际上是否会得到一个对象。

删除所有饼干的东西，然后尝试 agent 方法：

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

如果构造函数中有任何问题，您应该能够捕获它。但是，如果您的脚本尚未消失，我认为您还有其他问题。如果LWP :: Useragent :: new遇到了问题，那么它已经卷起了。它唯一可以返回的是它已经称为方法的定义值。