Problem mit XMLNS in XML Dateien (Allgemeines zu Perl)

[thread]20745[/thread]

Problem mit XMLNS in XML Dateien

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+9 replies

tk102

2020-02-20 08:42

User since
2020-02-20
10 Artikel
BenutzerIn
[default_avatar]

Hallo Zusammen,

Ich bin gerade dabei mit Perl XML Dateien auszulesen. Das funktioniert mit LibXML auch zu meiner Zufriedenheit.
Allerdings habe ich ein Problem, sobald in dem XML Tag xmlns Informationen enthalten sind.

Kurzes XML Beispiel:

Code: (dl )

1
2
3

<XML xmlns="http://de/vdvka/XMLSchema">
  <Tag>Hier steht eine Information</Tag>
</XML>

Code (perl): (dl )

my $GetContent = XML::LibXML->load_xml(location => $XmlFile);
foreach my $xmlelement ($GetContent->findnodes('/XML')) {
 my $Information = $xmlelement->findvalue('./Tag');
 print $Information
}

Ich habe es versucht zu vereinfachen. Die XML ist deutlich größer und tiefer strukturiert. Es ging darum, zu veranschaulichen, wie ich mir die Informationen aus der XML hole.

Sofern ich allerdings die xmlns information drin stehen lasse, erhalte ich keine Ausgabe, so als würde der Pfad im Dokument nicht gefunden werden. Lösche ich es per Hand heraus, funktioniert es.

Ich sehe hier zwei möglichkeiten:

(o) Die XML öffnen und von Perl die xmlns Information löschen (ist aber eher Pfusch)
(o) Perl beibringen mit den Informationen zu arbeiten.

Vielleicht hat jemand eine Idee :)
Last edited: 2020-02-20 08:52:21 +0100 (CET)

gelöscht 2020-02-20 09:09
GwenDragon

2020-02-20 09:20

User since
2005-01-17
14759 Artikel
Admin1

Der Parser kann doch bestimmtes ignorieren
https://metacpan.org/pod/distribution/XML-LibXML/l...

Ansonsten Namespace parsen mit XPath:
https://grantm.github.io/perl-libxml-by-example/na...
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
+6 replies

Daxim

2020-02-20 10:08

User since
2007-08-01
114 Artikel
BenutzerIn

Code (perl): (dl )

use XML::LibXML qw();
use XML::LibXML::XPathContext qw();

my $document = XML::LibXML->load_xml(string => \<<'');
<XML xmlns="http://de/vdvka/XMLSchema">
  <Tag>Hier steht eine Information</Tag>
</XML>

my $xpc = XML::LibXML::XPathContext->new($document);
$xpc->registerNs(ns => $document->documentElement->getAttribute('xmlns'));
print $xpc->findvalue('//ns:XML/ns:Tag');

+5 replies

tk102

2020-02-20 13:25

User since
2020-02-20
10 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

my $document = XML::LibXML->load_xml(location => 'Datei.xml');

my $xpc = XML::LibXML::XPathContext->new($document);
$xpc->registerNs(ns => $document->documentElement->getAttribute('xmlns'));
foreach my $ZN ($xpc->findnodes('//ns:Tag1/ns:Tag2'))
{
        print $ZN->findvalue('/ns:Inhalt1');
}

Vielen Dank! Soweit funktioniert es erstmal.
Wenn ich das wieder in einer foreach Schleife ausgeben möchte, da ich den Inhalt von jedem Tag benötige, erhalte ich den Fehler:

Undefined namespace prefix

+4 replies

Daxim

2020-02-20 19:03

User since
2007-08-01
114 Artikel
BenutzerIn

Du musst die Methode findvalue von der Klasse XPC verwenden, nicht von der Klasse Node. Beachte den zweiten Parameter, in der Doku als $context gekennzeichnet.

Code (perl): (dl )

1
2
3

foreach my $ZN ($xpc->findnodes('//ns:Tag1/ns:Tag2')) {
    print $xpc->findvalue('ns:Inhalt1', $ZN);
}

Wenn das nicht gehen sollte, dann musst du eine lauffähige Demo liefern, d.h. auch die Datei.xml.

+3 replies

tk102

2020-02-21 13:12

User since
2020-02-20
10 Artikel
BenutzerIn
[default_avatar]

Leider bekomme ich dann trotzdem für jedes Element nochmal alle Inhalte.

Code (perl): (dl )

use XML::LibXML qw();
use XML::LibXML::XPathContext qw();

my $document = XML::LibXML->load_xml(location => 'Datei.xml');
my $xpc = XML::LibXML::XPathContext->new($document);
$xpc->registerNs(ns => $document->documentElement->getAttribute('xmlns'));

foreach my $ZN ($xpc->findnodes('//ns:Liste/ns:Listenelement'))
{
        print $xpc->findvalue('//ns:Nummer', $ZN);
}

Die XML (Datei.xml) dazu:

Code: (dl )

<?xml version="1.0" encoding="UTF-8" ?>
<Nachweisliste xmlns="http://de/vdvka/XMLSchema">
    <Liste>
        <Listenelement>
            <Nummer>1</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>2</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>3</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>4</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>5</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>6</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>7</Nummer>
        </Listenelement>
        <Listenelement>
            <Nummer>8</Nummer>
        </Listenelement>		
    </Liste>
</Nachweisliste>

+2 replies
Daxim

2020-02-21 13:20
User since
2007-08-01
114 Artikel
BenutzerIn
Code (perl): (dl )

1 2 3

foreach my $num_node ($xpc->findnodes('//ns:Liste/ns:Listenelement/ns:Nummer')) { print $num_node->textContent . "\n"; }
- tk102
  
  2020-02-21 14:06
  
  User since
  2020-02-20
  10 Artikel
  BenutzerIn
  
  Das Funktioniert! Vielen lieben Dank!
  
  Was ich allerdings damit nicht lösen kann ist, wenn ich im Element "Listenelement" mehrere Nummern habe.
  
  Gedacht ist, dass er Alle Nummern Tags aus den Listenelementen heraussucht, wie ja auch die meisten XML´s aufgebaut sind.
  Last edited: 2020-02-21 15:07:27 +0100 (CET)

View all threads created 2020-02-20 08:42.