在PERL子例程中更改全局变量值

Question

我是PERL的新手，我有这个用例

#global variable
my $global = "foo";
print $global . "\n";
#subroutine call
&change($global);
print $global . "\n";

这是我的子程序

sub change { 
               change the value of global to "bar";
               return $global;
           }

这就是我想要的输出

foo
bar

我知道这是基本的，但我真的想了解在Perl中执行此操作的正确方法。

Answer 1

只需分配给它：

sub change { 
   $global = 'bar';
}

并且在函数名称之前不需要&，change()就足够了。