perl - 我如何在 Perl 中定义匿名标量引用？

Question

如何在 Perl 中正确定义匿名标量引用？

我的 $scalar_ref = ?;

我的 $array_ref = [];

我的 $hash_ref = {};

Answer 1

如果你想引用一些可变存储，没有特别简洁的直接语法。您可以管理的最好的是

my $var;
my $sref = \$var;

或者更整洁

my $sref = \my $var;

或者，如果您不想让变量本身再处于范围内，您可以使用 do block :

my $sref = do { \my $tmp };

此时您可以按值传递 $sref，它引用的标量的任何变化都会被其他人看到。

当然，这种技术同样适用于数组或散列引用，只是使用 [] 和 {} 有更简洁的语法:

my $aref = do { \my @tmp };  ## same as  my $aref = [];

my $href = do { \my %tmp };  ## same as  my $href = {};