perl, libxml xpath : wie man ein element über ein Attribut in diesem Beispiel .xml-Datei

Ich würde gerne Ihre Hilfe in den folgenden :

gegeben .xml-Datei :

<network>
    <netelement>
            <node pwd="KOR-ASBG" func="describe_SBG_TGC">
                    <collection category="IMT" dir="Stream_statistics"></collection>
                                    </node>
    </netelement>
    <netelement>
            <node pwd="ADR-ASBG" func="describe_SBG_TGC">
                    <collection category="IMT" dir="Stream_statistics"></collection>
                    <collection category="IMT" dir="Proxy_registrar_statistics_ACCESS"></collection>
            </node>
    </netelement></network>

Was ich möchte zu tun ist, um das element mit dem Attribut "KOR-ASBG", zum Beispiel,
aber nur mithilfe von XPath.

Ich geschrieben habe das folgende Perl-code :

#!/usr/bin/perl         -w

use             strict ;
use             warnings ;
use             XML::LibXML ;
use             Data::Dump qw(dump) ;


my $dump = "/some_path/_NETELEMENT_.xml" ;
my $parser = new XML::LibXML ; my $doc ;
eval{ $doc = $parser->parse_file($dump) ; } ;
if( !$doc ) { print "failed to parse $dump" ; next ; }
my $root = $doc->getDocumentElement ;

my $_demo = $root->find('/network/netelement/node[@pwd="KOR-ASBG"]') ;
print dump($_demo)."\n" ;

Aber, was es bekommt dispalyed ist :

bless([bless(do{\(my $o = 155172440)}, "XML::LibXML::Element")], "XML::LibXML::NodeList")

Also die Frage wäre, wie bekomme ich die XML-Elements mit dem "pwd" - Attribut (entspricht "KOR-ASBG"), die Verwendung von XPath ?

Danke 🙂

PS. Ich habe auch versucht :

my @_demo = $root->findnodes('/network/netelement/node[@pwd="KOR-ASBG"]') ;
print dump(@_demo)."\n" ;

und was wird es angezeigt wird :

bless(do{\(my $o = 179552448)}, "XML::LibXML::Element")
InformationsquelleAutor user690182 | 2011-10-04
  1. 2

    Ihre dumper-Objekt ist nicht an Euch liegen; Sie werden immer eine Liste von Knoten. Um darauf zuzugreifen, können Sie entweder Durchlaufen oder einfach nur den Zugriff auf den ersten Knoten:

    print $_demo->get_node(0)->toString()

    Natürlich alle DOM-Methoden, stehen Ihnen zur Verfügung, sobald Sie die eigentliche Knoten:

    print $_demo->get_node(0)->getAttribute('func');
    • vielen Dank! es funktioniert! aber ich brauche noch einen einzigen Ratschlag: wie bekomme ich das Letzte Kind (z.B. die Letzte "collection" - element) ? print $_demo->get_node(0)->lastChild->textContent, scheint nicht zu funktionieren 🙁
    • Öffnen Sie eine andere Frage, ich werde glücklich sein, es zu versuchen.
    InformationsquelleAutor Leonardo Herrera
  2. 4

    Könnte es technisch mehr als einem element übereinstimmt, das ist, warum ein ResultSet zurückgegeben wird, anstatt von einzelnen Knoten. Könnten Sie

    my ($ele) = $root->findnodes('/network/netelement/node[@pwd="KOR-ASBG"]');

    Dass das erste match in $ele.

    • danke ikegami für Ihr Interesse. die Ausgabe ist folgende : bless([bless(do{(my $o = 178343592)}, "XML::LibXML::Element")], "XML::LibXML::NodeList")
    • * ich weiß schon, dass es nicht mehr als ein element in der Ergebnismenge.
    • Dann glaube ich dir miscopied was ich gepostet. (Hast du vergessen, die Klammern um $ele?) Versuchen Sie es erneut. Sie sollten immer bless(do{\(my $o = 999999)}, "XML::LibXML::Element")
    InformationsquelleAutor ikegami
  3. 2

    Was Sie sehen, ist, was Sie nennen, in Perl eine "undurchsichtige Objekt". Es ist kein hash, sondern eine Taste, um eine Reihe von lexikalischen hashes in der das Paket, das halten, die Felder für alle Instanzen. Es ist Perl die Möglichkeit der Implementierung von Objekten mit Sicherheit. Der einzige Weg, um an Informationen zu nennen, deren get-Accessoren.

    Den Weg, um herauszufinden, wie mit diesen umzugehen ist Hinweis das zweite argument der bless und sich diese:

    http://search.cpan.org/perldoc?<name-of-package>

    Oder in deinem Fall: http://search.cpan.org/perldoc?XML::LibXML::NodeList und

    http://search.cpan.org/perldoc?XML::LibXML::Element

    Nun, ich weiß nicht empfehlen diese in allen Fällen, aber wenn Sie bemerken, die NodeList-Objekt ist ein gesegnetes array Referenz. So konnte man nur Zugriff auf die letzten Knoten, etwa so:

    my $nodes      = $root->find('/network/netelement/node[@pwd="KOR-ASBG"]');
my $first_node = $nodes->[0];
my $last_node  = $nodes->[-1];

    Natürlich macht es oft Sinn, eine Liste-Implementierung verhält sich wie ein array, entweder durch die selige array oder das überladen von Operatoren oder ties. Also, in diesem Fall, glaube ich nicht, es ist zu groß, eine Verletzung der Kapselung.

    • So bitten Sie ihn, schauen Sie in die Dokumentation, aber Sie gehen dann etwas zu tun, ist nicht dokumentiert. Es ist nicht sicher zu behandeln, die nodelist als eine Referenz auf ein array der Knoten.
    InformationsquelleAutor Axeman
Schreibe einen Kommentar