在Perl子程序中修改变量

Question

如何将局部变量传递给Perl子程序并进行修改？

use strict; 
use warnings; 

sub modify_a 
{ 
     # ???? 
} 

{ 
     my $a = 5; 
     modify_a($a); 
     print "$a\n"; # want this to print 10 
} 

Answer 1

一个不太神奇的方法是通过一个参考。

use strict; 
use warnings; 

sub modify_a 
{ 
     my ($a_ref) = @_; 
     $$a_ref = 10; 
} 

{ 
     my $a = 5; 
     modify_a(\$a); 
     print "$a\n"; 
} 

Answer 2

sub modify_a { 
    $_[0] *= 2; 
} 

的@_元素是别名传递的值，因此，如果您直接修改，你会改变调用者的价值观。有时候这可能很有用，但通常是不鼓励的，因为对呼叫者来说这通常是一个惊喜。