참조에서 참조를 포함하는 배열로 해시를 가져 오는 Perl

Question

하나의 요소가있는 배열에 대한 참조를 반환하는 다음 코드가 있습니다. 해당 요소에는 해시에 대한 참조가 포함됩니다. 이 이중 참조를 제거하고 해시 복사본을 사용하거나 해시 자체에서 직접 작업하여 키를 사용할 수 있습니다.

여기에 코드입니다 : 추출

my $extracted = $db_obj->extract('source_tag', $source_tag); 

그래서 $ 배열에 대한 참조를 포함합니다. 이 배열에는 해시에 대한 참조라는 단일 요소가 있습니다. 해시 내가 데이터 : 덤퍼를 사용하는 경우 다음과 같습니다

$VAR1 = \\[ 
       { 
       'data_center' => 'qe76', 
       'description' => 'locator', 
       'abs_delta_dollar_percent' => undef, 
       'content_type' => 'Raw', 
       'source_tag' => 'hg9efx4', 
       'producer' => 'partner', 
       'id' => '15282', 
       'storage_type' => 'box', 
       'storage_path' => '/mnt/storage/2012' 
       } 
      ]; 

내가 값을 잡기 위해 키를 사용할 수 있도록 직접 해시에 액세스 할 수 있도록하고 싶습니다. 이 이중 참조는 어떻게 제거합니까? 보인다

Answer 1

my %hash = %{ $db_obj->extract('source_tag', $source_tag)->[0] } ; 

Answer 2

my $extracted = $db_obj->extract('source_tag', $source_tag) -> [0]; 

Answer 3

가되게합니다 :

$$$$result[0] 
or 
$$$result[0] 

당신이 이중 백 슬래시를 의미하지 않은 경우.