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

@_の要素が渡された値にエイリアスされているので、あなたが直接これを変更した場合、あなたは、呼び出し元の値を変更します。これは時には便利なこともありますが、通話者にとっては通常は驚きであるため、一般的にはお勧めしません。