在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; 
} 

的@_元素是別名傳遞的值，因此，如果您直接修改，你會改變調用者的價值觀。有時候這可能很有用，但通常是不鼓勵的，因爲對呼叫者來說這通常是一個驚喜。