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];
}