Perl 메서드 및 참조로 전달

Question

나를 위해 Perl 참조는 파악하기가 어렵습니다. 객체 메소드를 사용하는 객체 지향 스크립트와 같은 것을 읽을 때 객체를 참조로 사용하는 것을 본 적이 없다. 대형 객체의 경우에도 서브 루틴 (메소드)에 복사되는 대신 참조로 사용하면 도움이됩니다. 장면 뒤에

$p->a_method($value); 

는, 펄이

a_method($p, $value); 

를 실행하지만 $p 거대한 물체가있는 경우, 당신은로 전달 싶지 않을 것이다 :

PerlMaven는 말한다 참고?

a_method(\$p, $value) 

나는 객체가 큰 경우 참조로 전달하면 속도가 크게 높아질 수 있다는 것을 항상 알고 있습니다. OO에서는 대용량 객체 (예 : 거대한 XML::Twig)로 작업하고있을 가능성이 큽니다. 그렇다면 실제로 서브 루틴을 참조로 전달할 때 이러한 객체에 대한 메서드를 어떻게 호출할까요?

Answer 1

$p에는 이미 개체에 대한 참조가 포함되어 있습니다. 메소드 호출에는 객체에 대한 참조가 필요하며이 참조는 하위로 전달됩니다. 그래서, $ self는 항상 참조입니다. perlobj 및 bless을 참조하십시오.

#! /usr/bin/perl 
use strict; 
use warnings; 
use feature 'say'; 

{ package Class; 

    sub new { bless {}, __PACKAGE__ } 
    sub inf { ref shift } 
} 

my $o = 'Class'->new; 
say $o->inf ? 'reference' : 'not a reference'; 

출력 :

reference