클래스의 메서드에서 반환 된 해시를 역 참조하려면 어떻게해야합니까?

Question

해시를 반환하는 메서드가있는 클래스가 있습니다. 일반적으로, 정말 같은 결과를 얻을 것이다 : 반환 된 해시의

%resp = $myclass->sub($foo); 

그리고 멤버에의 액세스를 다음과 같이 :

$resp{key}{subkey}; 

을 2 차원 해시의 경우. 나는이 같은 하나의 우아한 라인으로이를 결합하는 방법, 뭔가가 있어야 알

: 코드를 실행하려고 할 때

$myclass->sub($foo)->{key}{subkey} 

분명히

이 펄로 제대로 역 참조되지 않는이를 반환

Can't use string ("1/8") as a HASH ref

는 "References quick reference" on Perlmonks보고에서, 임의 역 참조 시퀀스를 시도하고, 나는 펄에 대해 불평하지 않는 다음, 함께했다,뿐만 아니라 내가 무엇을 찾고 반환하지 않습니다

,

$%{$myclass->sub($foo)}->{key}{subkey} 

누군가가 마법역 참조 취소 이스케이프 시퀀스가이 작업을 수행 할 것이라고 말할 수 있습니까?

Answer 1

그냥 대신 해시의 hashref를 돌려 :

$myclass->sub($foo)->{key}->{subkey}

Answer 2

내가 대신 하위에서 HASH 참조를 반환 할 것입니다. 그렇지 않으면 (아마도) 귀하의 해시는 아무 이유없이 다시 HASH에 다음 LIST로 전환된다 따라서보다 효율적인 참조를 반환 할 때 관여 적은 복사가있다

sub mysub() { 
    ... 
    return \%myhash; 
} 

. 역 참조 바로 다음 sub에 의해 반환 된 목록에서 해시 참조를 만들 것이다

{ $myclass->sub($foo) }->{key}{subkey} 

: 해시 참조가 최고의 작품,하지만 기능을 얻을 수 반환 하위 변경

는

Answer 3

를 찾고 있습니다 it

편집 : 해시 대신 목록에서 해시 참조를 반환하는 이점은 주로 성능 중 하나입니다. hashref의 경우 해시가 한 번 생성 된 다음 액세스됩니다. 목록의 경우 해시가 만들어지고 목록으로 변환 된 다음 다시 만들어지고 역 참조가 적용됩니다. 작은 해시의 경우에는 시간이 너무 많이 걸리지 만 큰 경우에는 런타임에 불필요한 작업입니다. 기본적으로 데이터를 일부 장소에서 목록으로 사용하고 다른 곳에서 해시로 사용할 계획이면 해시를 목록으로 반환하는 것이 좋습니다. 그러나 항상 해시로 사용할 계획이라면 참조를 반환하는 것이 더 명확하고 빠릅니다.

Answer 4

당신이하려는 것은 우아하거나 권장하지 않습니다. 어떻게 든 스칼라 컨텍스트에서 루틴을 호출 할 수 있습니다 (즉, "1/8"이 해당합니다).

해시 참조를 반환합니다.작동하지 않습니다

#!/usr/bin/perl 

package My::Mine; 

use strict; use warnings; 

sub test { 
    my %h = (
     a => { z => 1}, 
     b => { y => 2}, 
    ); 
    return %h; 
} 

package main; 

use strict; use warnings; 

my $class = 'My::Mine'; 

print { $class->test }->{a}{z}, "\n"; 

:

이제 좀 봐. 대신, 당신은해야 할 것 :

print +{ $class->test }->{a}{z}, "\n"; 

을 지금, 그 우아 perldoc -f print을 참조하십시오 (하지가!).

짧은 이야기를 요약하면 해시에 대한 참조를 반환합니다.

새로 생성하는 익명의 해시는 무료가 아닙니다. 또한 해시를 서브 루틴에서 플랫 목록으로 반환하는 데 드는 비용도 없습니다.

Answer 5

항상 하위 키 하나를 얻고 싶다면 간단한 서브 루틴을 작성하여 줄을 서서 골프를 치는 것을 잊어 버리십시오. 한 가지 장점은 위생 검사를 쉽게 추가 할 수 있다는 것입니다.

sub get_subkey { 
     my($class, $arg, $key, $subkey) = @_; 

     my $hashref = $class->method($arg); 
     return unless ref $hashref; 

     return $hashref->{$key}{$subkey}; 
     }