一个关于引用的问题

lostwolf

我有这样一段代码

sub xxx{
....
$response = $ua->request($request);
return $response;
}
my $response = xxx($url);
print "返回内容为:".$response->content."\n";

为什么会返回
Can't use an undefined value as a HASH reference

这样的错误。是不是说明实际的引用并没有被成功返回。
到底要怎样做才能正确引用？

ludio333

return $ua;

Perlvim

1. 用 use strict 和 use warnings，所有的变量都用 my 或 our 声明；
2. 引用要提前声明，如果函数返回的是引用还好，如果是一个错误码。就很难发现错误。
3. 查看数据的引用类型，用 my $ref_type = ref($ref) 检查。
4. 查看数据里面到底的是什么，可以用 use YAML qw(Dump); 中的 Dump 函数。

say Dump($ref);

这样大部分问题，自己都可以检查出来。

xudongxu27

3楼说的不错。 没有use strict 和 use warnings 对别人读代码和自己检查都是不利的。

kelvenchi

$response = $ua->request($request);
你确定 $response 的内容是一个引用么？