perl에서 스칼라에 대한 참조를 사용합니까?

Question

필자는 perl 참조를 배우고 있는데, 필자는 배열이나 배열에 대한 참조의 유용성을 이해합니다. 그러나 어떤 시나리오에서 스칼라 값에 대한 참조가 유용 할 수 있는지 생각해보십시오.

my $x = 1; 
my $sr = \$x; 

경우 대신 $x의 직접 사용의, $$sr를 사용하는 것이 유용 할 수 있습니까?

예를 들어 심층적 인 해시 코드 구조를 탐색 할 때 주어진 노드가 hashref 또는 arrayref인데도 스칼라에 대한 참조를 반환하는 대신 직접 스칼라 값을 반환하면 참조를 반환하는 것이 일반적인 방법이 아닙니까?

스칼라의 값을 반환하는 대신 스칼라에 대한 참조를 사용하거나 반환하는 함수 나 모듈이 있습니까?

Answer 1

서브 루틴에서 전달되는 값을 직접 수정하려는 경우.

sub increment_this { 
    my ($inc_ref) = @_; 
    ${$inc_ref}++; 
} 

내가 알고있는 사소한 사건의 비트, 그러나 아마 더 관련이 변수 또는 $_에서 편지를 후행 제거합니다 chomp 같은 사례가 될 것입니다.

생각해 보면 - $_은 종종 효과적으로 참조됩니다. 이 할 경우

my @array = qw (1 2 3); 
foreach (@array) { 
    $_++; 
} 

print @array; 

배열의 내용을 수정 한 $_ 수정.

Answer 2

당신은 객체 사이의 스칼라 공유하려는 경우 :

my $v = 1; 
my %h1 = (a=>\$v); 
my %h2 = (b=>\$v); 
$v++; 
print ${$h1{a}}, "\n"; 
print ${$h2{b}}, "\n"; 

인쇄 : 당신이 하위에 큰 문자열을 통과해야 할 때

2 
2 

Answer 3

그것은 유용합니다, 그리고하지 않습니다 그 (것)들의 사본을 빨리하고 기억을 낭비하지 말라 :

sub my_sub { 
    my $str = shift; #makes a copy of a reference => cheaper 
    #do something with $$str 
} 

#... 
$x = ' ... large string ...'; 
my_sub(\$x); 

Answer 4

난 진짜 대답은 당신의 질문 자체에 거짓말 같아요 : 스칼라에 대한 참조는 굉장히 유용하지 않습니다, 그리고 당신은 아마 그들이 코드를 작성할 때 존재한다는 것을 무시할 수 있습니다. 주된 유용성 as hinted at by perreal은 동일한 메모리 위치 : 객체간에 변수 공유를 가리킬 수 있다는 것입니다.

그러나 호기심과 학업 목적을 위해, perreal과 Sobrique가 남긴 좋은 예 외에도 다소 모호한 것이 하나 있습니다. 당신은 변수에 인쇄 할 파일 핸들을 열 수 있습니다

파일 핸들 주위에 전달 :

use strict; 
use warnings; 
use Data::Dumper; 

my $string; 
open my $fh, ">", \$string or die $!; 
print $fh "Inside the string"; 

print Dumper $string; 
# prints $VAR1 = 'Inside the string'; 

Answer 5

@TLP는 또 다른 예를 묻는 메시지가 파일 핸들을 언급했다. 파일을 조작하는 좋은 방법은 네임 스페이스 오염을 피하기 위해 어휘 파일 핸들을 사용하는 것입니다.

sub write_header { 
    my ($fh_ref) = @_; 
    print ${$fh_ref} "This is a header\n"; 
} 

open (my $output, ">", "output_filename"); 
write_header (\$output); 
write_content (\$output); 
write_footer (\$output); 
close ($output);