传递给函数的Perl参数

我已经写了一个小的测试脚本

#!/usr/bin/perl -w

use strict;

my $head="a b";

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

test $head;

---

输出是

1

，而实际上我期望的是

a

。有人能告诉我哪里错了吗

分割的操作数是在标量上下文中计算的，而标量上下文中的

@

计算结果是

@

中的元素数（

1

）。你想要

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

---

split

的操作数在标量上下文中求值，标量上下文中的

@

求值为

@

中的元素数（

1

）。你想要

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