Perl이 해시 내에서 해시에 액세스하고 각각을 반복하여 값을 추출합니다.

Question

해시에서 해시에 액세스하고 값을 얻기 위해 루프를 통과하려고합니다. 여기에 데이터의 예가 나와 있습니다.

$VAR1 = { 
     '24.40.53.143' => { 
          'ServStat' => { 
              '1.18.118.115.95.99.119.98.98.112.109.45.97.112.95.104.116.116.112.115' => 'vs_cgggbpm-ap_https', 
              '1.17.118.115.95.99.119.98.115.102.97.45.97.112.95.104.116.116.112' => 'vs_cddedsfa-ap_http', 
              '20.18.118.115.95.99.119.98.116.119.98.45.98.112.95.104.116.116.112.115' => '0', 
              '19.17.118.115.95.99.119.98.119.115.45.97.112.95.104.116.116.112.115' => '0', 
              '2.18.118.115.95.99.119.98.116.119.98.45.98.112.95.104.116.116.112.115' => '0', 
              '24.18.118.115.95.99.119.98.116.119.98.45.97.112.95.104.116.116.112.115' => '0', 
              '17.17.118.115.95.99.119.98.119.98.45.97.112.95.104.116.116.112.115' => '0', 
              '29.17.118.115.95.99.119.98.116.119.112.45.98.112.95.104.116.116.112' => '0', 

'ServStat'을 통해 반복하고 각 값을 추출하고 싶습니다. 어떻게 내용을 foreach 할 수 있도록 해시 'ServStat'참조 할 것이라고? 다음과 같이 입력하십시오 :

foreach {ServStat} { 
my ($num, $char, $vs) = (/(\d+)\.(\d+)\.(.+)/); 
if ($num == 1) { 
print {ServStat}->$value 
} 
} 

당신이 제공 할 수있는 조언을 미리 주셔서 감사합니다!

Answer 1

키를 얻으려면 해시에서 keys 함수를 사용할 수 있습니다. 그냥 모든 값을 원하는 경우에

my $data = { 
     '24.40.53.143' => { 
          'ServStat' => {'1.18.118.115.95.99.119.98.98.112.109.45.97.112.95.104.116.116.112.115' => 'vs_cgggbpm-ap_https'} 
     } 
}; 


my $ServStat = $data->{24.40.53.143}{ServStat}; 

foreach my $key (keys %{$ServStat}) { # you need the {} to dereference as $ServStat is a hash reference 
...#Now, in $key, you have the key 1.18.118.115.95.99.119.98.98.112.109.45.97.112.95.104.116.116.112.115 

} 

, 그냥 해시 함수 values를 사용

my @values = values %{$ServStat};