如何在 Perl 中的哈希引用中引用标量？

Question

简单的问题：

我如何在一行上执行此操作：

my $foo = $bar->{baz};
fizz(\$foo);

我尝试过 \$bar->{baz}、\${$bar->{baz}} 以及许多其他方法。 这可能吗？

-fREW

更新：好的，哈希引用来自 DBI，我将标量引用传递到模板工具包中。 我想，现在我更仔细地观察，这个问题与 TT 是如何做到这一切有关的。 实际上我想说：

$template->process(\$row->{body}, $data);

但是 TT 不是这样工作的，TT 采用标量引用并将数据放在那里，所以我必须这样做：

$template->process(\$row->{body}, $shopdata, \$row->{data});

无论如何，感谢您的帮助。 我至少只会有一份参考资料，而不是两份。

Answer 1

\$bar->{baz}

应该管用。

例如：

my $foo;
$foo->{bar} = 123;

my $bar = \$foo->{bar};

$bar = 456;

print "$foo->{bar}\n";   # prints "456"

为了回答 OP 中的更新，您可以这样做：

\@$row{qw(body data)};

这与 \@array 不同，后者会创建对数组的一个引用。 上面将分发参考文献并列出两个参考文献。

Answer 2

\$bar->{baz} 似乎对我有用：

my $bar = { baz => 1 };
print $bar->{baz}, "\n";  # prints 1
my $ref =  \$bar->{baz};
print $ref, "\n";        # prints 1
$ref = 2;
print $bar->{baz}, "\n";  # prints 2 

Answer 3

您没有显示 %bar 和 fizz() 是如何设置的，所以我像这样设置它们：

my %hash;
my $bar = \%hash;
$hash{baz} = "found it\n";
sub fizz {
  my $ref = shift;
  print $ref;
}

然后，这两个工作，您的原始：

my $foo = $bar->{baz};
fizz(\$foo);

以及您所说的尝试过的变体之一：

fizz(\$bar->{baz});

您能显示给出的错误吗你？

Answer 4

我什至不确定你在做什么。
您还应该在 baz 周围加上引号。

现在让我们考虑一下，您将一个标量分配给第一行中的标量，然后第二行应该可以工作。
然而我真的不知道这是否是你在这里尝试的，并且它在 Perl 中没有真正的意义。
在其他语言中经常使用引用来

1. 加速函数调用，
2. 允许返回多个值。

现在标量通常不需要第一个，而且无论如何 Perl 是一种脚本语言，所以如果您真的关心编写 C 的速度。

第二个在 Perl 中不需要，因为您可以很容易地返回列表和对匿名哈希的引用。

你看过“man perlref”吗？