4

XML :: LibXML（Ver：1.70）を使用しています。

私のxml入力ファイルは次のようになります：

<?xml version="1.0" encoding="UTF-8"?>
<Equipment xmlns:xsd="http://www.w3.org/2001/XMLSchema"
           xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <Equipments>
    <ECID logicalName="SysNameAlpha" id="0"/>
    <ECID logicalName="SysNameBeta" id="1"/>
  </Equipments>
</Equipment>

と私のPerlスクリプト：

my $file = 'data.xml';
my $parser = XML::LibXML->new();
my $tree = $parser->parse_file($file);
my $root = $tree->getDocumentElement;

foreach my $camelid ($root->findnodes('Equipments')) {
    my $name =  $camelid->findvalue('ECID/@logicalName');
    my $id =  $camelid->findvalue('ECID/@id');
    print $name;
    print " = ";
    print $id;
    print ";\n";
}

私が得る出力は次のとおりです。

SysNameAlphaSysNameBeta = 01;

しかし、私は次のような出力が必要です。

SysNameAlpha = 0;    
SysNameBeta = 1;

どうすればこれを達成できますか？

4

1 に答える 1

12

ノードは1 つしかないため、スキャンEquipmentsするノードは1 つだけです。$camelid改善するには、機器/ECID を反復処理するなど、少し変更する必要があります。

foreach my $camelid ( $root->findnodes('Equipments/ECID') ) {
    my $name =  $camelid->findvalue('@logicalName');
    my $id =  $camelid->findvalue('@id');
    ...
}
于 2011-05-05T08:49:01.800 に答える