Perl 参数传递给函数

Question

我写了一个小测试脚本。

#!/usr/bin/perl -w

use strict;

my $head="a b";

sub test
{
my @arr=split / /,@_;
print $arr[0];
}

test $head;

输出是1 而我实际上期待的是a。谁能告诉我哪里错了

Answer 1

split 的操作数在标量上下文中求值，而在标量上下文中@_ 求值为@_ (1) 中的元素数。你想要的

sub test {
   my @arr = split / /, $_[0];
   print $arr[0];
}