错误：不是HASH参考

Question

我有一些代码，我试图分配返回值，但我看到以下错误。感谢有人可以告诉我为什么会收到此错误。

错误：不是行

的HASH参考

sub getid {
   my ($a, $b) = @_;
   my $id = 1 << $a + 1 << $b;
   return $id;
}

my $tip;
$tip->{'tock'}->[0]->{'brick'} = getid(2, 3);  <== This is where I am having issue.

Answer 1

这不是您实际运行以获取该错误的代码。在您的实际代码中，$tip或$tip->{'tock'}->[0]已定义，但不包含对哈希的引用。打印出来找出哪个。

转储数据结构以确定其实际情况可能很有用。

use Data::Dumper;
print(Dumper($tip));