傳遞給函數的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]; 
}