Perl 语法错误打印列表索引

Question

我正在尝试打印从函数调用返回的列表的索引。我将函数调用括在括号中，试图将列表转换为数组。该程序无法编译，并显示“file.pl 第 4 行，靠近“)[”的语法错误”。如果我创建一个临时变量 $a 或使用 printf 索引就可以了。为什么打印会刹车，有更好的选择吗？

sub get{
    return (1,2);
}
#print (get())[0]; #fails
printf("%d",(get())[0]);
my $a = (get())[0];
print $a;

Answer 1

我认为你愚蠢地不使用

use warnings;

不这样做是一件非常糟糕的事情。如果您使用过它，您会收到警告:

print (...) interpreted as function

也就是说，你写了什么

print (get())[0]

当您尝试在 print() 函数上放置下标时，Perl 会解释它吗？这是行不通的。

为了使代码执行您期望的操作，您需要明确括号:

print ( (get())[0] );

您应该始终使用

use strict;
use warnings;

使用这些有一个轻微的学习曲线，但它们只会显示您的错误。不使用它们只会隐藏您的错误，并且您的代码不会更好地工作。