如何在Perl的散列引用中引用标量?

\$bar->{baz}

应该工作。

例如。:

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

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

$$bar = 456;

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

为了响应OP中的更新,您可以执行以下操作:

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

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

\$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 

您没有显示%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});

你能指出给你的错误吗?

我甚至不知道你在做什么。 你也应该在baz周围加上引号。

现在让我们考虑为第一行中的标量分配一个标量,然后第二行就可以工作了。 不过,我不知道这是否是您在这里尝试的,在Perl中也没有真正意义。 在其他语言中,使用引用通常用于

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

现在,第一种通常不需要使用scalar,而且无论如何,Perl是一种脚本语言,所以如果您真正关心的是速度写C。

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

你看过“ManPerlRef”吗?