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

요소는, 전달 된 값으로 별칭이다. 때로는 유용 할 수 있지만 일반적으로 발신자가 놀랍기 때문에 일반적으로 사용하지 않는 것이 좋습니다.