perlではどのようにこの構造をループするのですか？

Question

私は（データはダンプ）このAPIとAPIリターンに渡すXMLを作成しています：私の人生のために私はをループにしたい

(
    "Data::Dump", 
    { 
     SiteDevices => { 
     "device" => { 
         1102 => { address => "1.2.3.4", riskfactor => "1.0", riskscore => "0.0" }, 
         1136 => { address => "1.2.3.5", riskfactor => "1.0", riskscore => "0.0" }, 
         20491 => { address => "1.2.3.6", riskfactor => "1.0", riskscore => "0.0" }, 
         129644 => { address => "1.2.3.7", riskfactor => "1.0", riskscore => "0.0" }, 
         129645 => { address => "1.2.3.8", riskfactor => "1.0", riskscore => "0.0" }, 
         130408 => { address => "1.2.3.9", riskfactor => "1.0", riskscore => "0.0" }, 
         135975 => { address => "1.2.3.10", riskfactor => "1.0", riskscore => "0.0" }, 
         137642 => { address => "1.2.3.11", riskfactor => "1.0", riskscore => "0.0" }, 
        }, 
     "site-id" => 27, 
     }, 
     success => 1, 
    }, 
) 

とそれらに関連付けられているデバイスとIPを印刷し、Iそれを行うためのコードを思いつくことはできません。一体何が欠けているのですか？私はハッシュ、ハッシュのハッシュなどをループしようとしました。それが動作することは決してできません。もしあなたのいずれかが秒を持っていて、答えを与えることができるなら、私は驚くべきことに頭を振ることができます。

私が試してみました：

foreach my $key (keys %{ $output->{‘SiteDevices’}->{‘device’} }) { 
     print $key 
     print $key->{‘address’} 
} 

と

foreach my $key (keys %{ $output{‘SiteDevices’}{‘device’} }) { 
     print $key 
     print $key{‘address’} 
} 

どちらも作品を。

Answer 1

あなたは、この解析されるXMLに言及。それはあなたがXML::Simpleとthat's just not a good idea.

でそれを解析されてきたように見えるのはなぜない代わりに：

#!/usr/bin/env perl 
use strict; 
use warnings; 

use XML::Twig; 

## get xml somehow here. parsefile if it's a file already. 
my $twig = XML::Twig -> new -> parse ($your_xml); 

foreach my $device ($twig -> get_xpath('//devices')) { 
    print $device -> att('name'), " => "; 
    print $device -> att('address'),"\n"; 
} 

ここに有用なものがxpathある - それは正規表現ではないが、それは一種の似ている - と、それが適用されますXML。この場合、//deviceは、 '<device>ノードをツリーのどこかで見つけることができます。 （そして属性を抽出する）。直接現在のノードの下に -

• ./device：あなたのシナリオのために働くかもしれないが、あなたは長いパスを指定することで、より具体的なことができ

  。

• .//device - 現在のノードの下の任意の場所。
• /root/SiteDevices/device - この 'ツリー'に特に一致するノード。

また、属性に検索するxpathを使用することができます。

• .//device[@name="1136"]が適切な値と属性を持つ何かを見つけるでしょう。

この方法のガイドについては、XML Twigクイックリファレンスを参照してください。

Answer 2

私は次のループがあなたが達成しようとしていることをすると信じています。あなたのテストでは

for my $device (keys %{ $output->{SiteDevices}{device} }){ 
    print "$device: $output->{SiteDevices}{device}{$device}{address}\n"; 
} 

、あなたは動作しませんこれは、ハッシュ/ハッシュリファレンスとしてキー名を使用しようとしている：それは、そのアドレスを抽出し、両方を印刷し、木から各デバイスをフェッチ。抽出を実行するには、抽出したキーをハッシュに戻す必要があります。

私はあなたの質問のうち、抽出された単一のレコードに基づいて出力、：

129644: 1.2.3.7 
129645: 1.2.3.8 
130408: 1.2.3.9 
137642: 1.2.3.11 
1136: 1.2.3.5 
135975: 1.2.3.10 
1102: 1.2.3.4 
20491: 1.2.3.6