perl 101 子程序和返回值

Question

我不明白这将如何返回 4 作为答案。
不确定子程序内部发生了什么。

sub bar {@a = qw (10 7 6 8);}
my $a = bar(); 
print $a; 

# outputs 4

Answer 1

在标量上下文中调用子例程。子程序中的最后一条语句是对 @a 的赋值。 ，这是一个表达式，因此成为隐含的​​返回值。在标量上下文中，这计算为赋值右侧返回的元素数(恰好与 @a 中的元素数相同)。