在 Perl 中传递标量引用

Question

我知道将标量传递给子实际上是传递引用，但由于我是 perl 新手，我仍然做了以下测试：

#!/usr/bin/perl
$i = 2;
subr(\$i);
sub subr{
    print $_[0]."\n";
    print $$_[0]."\n";
}

我认为第一行将打印一个地址，第二行将返回数字，但第二个是空行。有人指示我这样做：${$_[0]} 并打印出数字。但她不知道为什么没有 {} 它无法工作，以及为什么它与 {} 一起工作。那么到底发生了什么？

Answer 1

这是因为你的第二个打印语句相当于这样做......

my $x = $_; print $x[0];

当你想要的是

my $x = $_[0]; print $x;

换句话说，取消引用发生在评估数组下标之前。

当你添加那些curl-wurlies时，它会告诉perl如何按照你的需要解释表达式；它将首先评估 $_[0]，然后取消引用以获取值。

Answer 2

这是一个评估顺序。

  $_[0] is evaluated as {$_}[0]

这是标量变量 $_ 的引用的第 0 个元素。它首先获取引用，然后尝试找到它的第 0 个元素。

  ${$_[0]}

这是对数组@_ 的第 0 个元素的引用。它首先找到第 0 个元素，然后引用它。

如果您在代码顶部设置use strict 和use warnings，您将在第一次尝试时看到大量有关未定义值的警告。

Answer 3

$$_[0] 与 $foo[0] 类似，只是用 $_ 代替数组名称。这意味着 $_ 被视为数组引用，并且表达式根本不涉及标量引用 $_[0]。 $_->[0] 是等效的，使用替代的 -> 语法。解除引用的语法可能看起来任意且难以记住，但有潜在的意义和顺序；一个很好的介绍位于 http://perlmonks.org/?node=References+quick +参考。

Answer 4

您不必传递对 $i 的引用。当您将其作为 subr( $i )$_[0] 是 $i 的别名 >。

use strict;
use warnings;
use Test::More tests => 2;

sub subr{ $_[0]++ } # messing with exactly what was passed first
my $i=2;
is( $i, 2, q[$i == 2] );
subr($i);
is( $i, 3, q[$i == 3] );

另一个例子是这样的：

use strict;
use warnings;
use Test::More tests => 6;
use Test::Exception;

sub subr{ $_[0]++ }
my $i=2;
is( $i, 2, q[$i == 2] );
subr($i);
is( $i, 3, q[$i == 3] );

sub subr2 { $_[0] .= 'x'; }
dies_ok { subr2( 'lit' ); } 'subr2 *dies* trying to modify a literal';
lives_ok { 
    my $s = 'lit';
    subr2( $s );
    is( $s, 'litx', q[$s eq 'litx'] );
    subr2(( my $s2 = 'lit' ));
    is( $s2, 'litx', q[$s2 eq 'litx'] );
} 'subr2 lives with heap variables';

输出：

ok 1 - $i == 2
ok 2 - $i == 3
ok 3 - subr2 *dies* trying to modify a literal
ok 4 - $s eq 'litx'
ok 5 - $s2 eq 'litx'
ok 6 - subr2 lives with heap variables
1..6