的Perl：隱變量傳遞給自定義子

Question

在Perl有可能隱含變量隱式傳遞給一些內置函數，就像這樣：

$_ = 'foo'; 
print; # prints foo 

是否可以定義爲我的子這樣的行爲？像這樣：

sub bar { 
    print $_[0]; 
} 

$_ = 'foo'; 
&bar; # does not work 

在此先感謝。

Answer 1

$_[0]是@_數組的第一個元素，用於將值傳遞給子例程。 $_用作全局變量隱含，

sub bar { 
    my ($arg) = (@_, $_); 
    print $arg; 
} 

local $_ = 'foo'; 
bar(); 
bar("explicit foo"); 

Answer 2

一個參數：

sub bar { 
    my $arg = @_ ? shift : $_; 
    ... 
} 

單參數（5.10+）：

sub bar(_) { 
    my $arg = shift; 
    ... 
} 

多個參數：

sub bar { 
    my @args = @_ ? @_ : $_; 
    ... 
} 

多參數（ 5.10+）：

sub bar(_@) { 
    my @args = @_; 
    ... 
}