的Perl允許... $a = "fee";
$result = 1 + f($a) ; # invokes f with the argument $a
但不允許，或者說不會做我想做的...... s/((fee)|(fie)|(foe)|(foo))/f($1)/ ; # does not invoke f with the argument $1
期望，最終的結果是實現面向置換的方
運行以下代碼時，將打印C：\ Test下面所有文件的文件名。爲什麼不打印Hello（n次，取決於處理的文件數量）？ 這是否意味着我不能依靠shift來可靠地分配給$_？設想一個同事實現wtf功能，並不知道它是從File::Find想要分。 我運行此代碼與草莓的Perl 5.12 編輯：此代碼不會按預期運行或者： use strict;
use warnings;
wanted();
su
如何將子程序變量值傳送到另一個子程序變量中，我可以使用全局變量。 sub foo(){
my $myvar = "Hello";
}
sub foo1(){
my $myvar1 = $myvar; # how can I get the "Hello" from $myvar.
}
我試過使用包和全局變量，但失敗了。 Package Bar;
our $bar;
謝謝。