해시 perl 값의 배열

Question

배열의 참조를 key : value 쌍의 해시 테이블 쌍의 값으로 지정할 수 있습니까?

Answer 1

예. 백 슬래시를 사용하여 배열에 대한 참조를 만듭니다이 실제 배열에 연결됩니다

$hash{key} = \@array; 

주를, 그래서 당신이 같은 변화를 수행하는 경우 :

$array[0] = "foo"; 

도 $hash{key}[0]는 것을 의미한다 그 "foo"으로 설정하십시오. 이 원하지 않을 경우

, 당신은 익명의 배열 참조 [ ... ]를 사용하여 값을 복사 할 수 있습니다 :

$hash{key} = [ @array ]; 

는 또한,이 작업을 수행하기 위해 배열을 통해 갈 필요가 없습니다. 당신은 단순히 직접 할당 할 수

$hash{key} = [ qw(foo bar baz) ]; 

예 perldoc perlref

Answer 2

에서 만드는 참조에 대해 자세히 알아보십시오.

이

%hash = ('somekey' => \@arrayvalue); 
$hash{'somekey'} = \@arrayvalue; 
%hash = ('somekey' => [ ... ]); 

Answer 3

use Data::Dumper; @name=('5/17', 
    '5/17','5/17','5/17','5/17','5/17','5/17','5/17'); @status_flags=('U 
    H L','U C','U H L','U C','U C','U H L','U C', 'U H L'); 
    @ip_address=('192.168.0.11','192.168.0.2','192.168.0.13','192.168.0.0','192.168.0.3','192.168.0.12','192.168.0.4','192.168.0.14'); @dp_id=('0','0','0','0','0','0','0','0'); 
    @ip_prefix_length=('32','32','32','24', '32', '32','32','32'); 

    for ($value=0;$value<=5;$value++) { 


    $keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'name'=>"$name[$value]"}; 
      $keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'dp-id'=>"$dp_id[$value]"}; 
      $keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-address'=>"$ip_address[$value]"}; 
      $keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-prefix-length'=>"$ip_prefix_length[$value]"}; 


    $keyvals{'Response'}{'brocade-extension-ip-route'}{'extension-ip-route'}={'ip-gateway'=>'*'}; 




    } 
     print Dumper \%keyvals; 

    Each array value assign into hash value. $var1= { 
       'Response' => { 
          'extension-ip-route' => { 
                'status-flags' => 'U H L ' 
                    , 
                'ip-gateway' => '*', 
                'name' => '0/2', 
                'ip-address' => '192.168.20.11', 
                'dp-id' => '0', 
                'ip-prefix-length'=>'32' 

                } 
          } 
      };