“$scalar = @array[n]”的后果是什么？

Question

use warnings;
my @array = (0, 1);
my $scalar1 = $array[0];
my $scalar2 = @array[0];
if($scalar1 == $scalar2) {
    print "scalars are equal\n";
}

这是我运行 /usr/bin/perl5.10.1 test.pl 时的输出：

Scalar value @array[0] better written as $array[0] at test.pl line 4.
scalars are equal

我担心这个警告。

Answer 1

您可以在 perldoc perldiag 中查找所有警告消息，其中解释了后果：

（W语法）您已使用数组切片（由@表示）来选择一个
数组的单个元素。一般来说
最好要求一个标量值
（用$表示）。区别在于
$foo[&bar] 总是表现得像
标量，在分配给它时和
在评估其论点时，同时
@foo[&bar] 的行为就像一个列表，当
您分配给它，并提供一个列表
其下标的上下文，可以这样做
如果你只期待奇怪的事情
一个下标。

另一方面，如果您确实希望处理数组
元素作为列表，您需要查看
了解引用是如何工作的，因为 Perl
不会神奇地在之间转换
为您提供标量和列表。看
佩尔参考。

同样，您可以使用诊断来获取警告消息的详细解释。

第三种方法是使用 splain 实用程序。

Answer 2

可以获取单个元素的数组切片：

@fruits[1]; # array slice of one element

但这通常意味着您犯了一个错误，Perl 会警告您您真正做的是什么
应该写的是：

$fruits[1];

Answer 3

该用法不会产生任何后果。我认为目的是帮助你避免无法发出警告时产生的后果。

“=”的 LHS 上的切片导致“=”成为列表赋值运算符。

$ perl -E'sub f { return 4; } my $x = $a[1] = f(); say $x'
4

$ perl -E'sub f { return 4; } my $x = @a[1] = f(); say $x'
1

切片评估列表上下文中的索引。

$ perl -E'sub f { my @i = 3; @i } @a=qw( a b c d e f ); say @a[f()]'
d

$ perl -E'sub f { my @i = 3; @i } @a=qw( a b c d e f ); say $a[f()]'
b