XML::Simple bringt mir alles durcheinander... (gelöst) (Fragen zu Perl-Modulen)

[thread]15518[/thread]

XML::Simple bringt mir alles durcheinander... [gelöst]

Tags: XML Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+16 replies
Nordlicht

2010-10-10 00:05
User since
2005-10-16
182 Artikel
BenutzerIn
Hallo Leute,

Ich hab ein Problem mit XML::Simple:

Ich hab gerade ein Programm gebastelt, dass mit Hilfe von XML::Simple einige Daten, die ich in XML geschrieben hab ausließt.

Das Auslesen und verarbeiten funktioniert auch wunderbar. Aber nun wollte ich einen zweiten Programm-Teil schreiben, der die Daten mit einigen Änderungen am Inhalt (nicht an der Struktur!) zurück schreibt. Nur dabei entsteht absolutes Chaos!

Wenn ich XMLin() diese Struktur zu fressen gebe:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

<opt> <tables> <section name="blubb" index="1"> <top>irgendein text</top> <row id="">irgendein text</row> </section> <section name="bla" index="0"> </section> </tables> </opt>
Hier der Output von Data::Dumper
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

$VAR1 = { 'tables' => { 'section' => { 'blubb' => { 'index' => '1', 'top' => 'irgendein text', 'row' => { 'content' => 'irgendein text', 'id' => '' } }, 'bla' => { 'index' => '0' } } } };
und dann genau die Struktur, so wie XMLin() sie eingelesen hat an XMLout() übergebe, macht XMLout() daraus das hier:
Code: (dl )

1 2 3 4 5 6 7 8

<opt> <tables name="section"> <bla index="0" /> <blubb index="1" top="irgendein text"> <row id="">irgendein text</row> </blubb> </tables> </opt>
Nach erneutem einlesen mit XMLin() sieht der Data::Dumper Output dann so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

$VAR1 = { 'tables' => { 'blubb' => { 'index' => '1', 'top' => 'irgendein text', 'row' => { 'content' => 'irgendein text', 'id' => '' } }, 'bla' => { 'index' => '0' }, 'name' => 'section' } };
Das ist nicht nur eine Veränderung der Reihenfolge, wie in der Beschreibung von XML::Simple behauptet wird... das ist komplettes "Kaudawelsch" und hat nix mehr mit meiner ursprünglichen Struktur zu tun!

Ich dachte XML wäre dazu da, Daten zu strukturieren, warum bringt XML::Simple alles durcheinander? Die zweite Struktur, die beim Zurückschreiben entsteht, lässt sich mit dem Programm, dass die erste Struktur verarbeitet hat, gar nicht mehr nutzen. Die Datenstruktur ist ganz anders verschachtelt als im ersten Fall, wie man mit Data::Dumper sieht.

Gibt es vielleicht andere Module, die XML so ausgeben, wie sie es eingelesen haben?

Wäre für Tipps sehr dankbar.

Gruß, Nordlicht.
- +15 replies
- topeg
  
  2010-10-10 00:29
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  versuch mal:
  
  Code (perl): (dl )
  
  XMLin(...,KeyAttr => [], ValueAttr => [], VarAttr => '')
  
  EDIT: VarAttr ergänzt
  Last edited: 2010-10-10 00:32:23 +0200 (CEST)
  - +14 replies
  - Nordlicht
    
    2010-10-10 17:09
    
    User since
    2005-10-16
    182 Artikel
    BenutzerIn
    
    Ok... ich musste ne ganze Weile ausprobieren, bis ich verstanden hatte wie diese Optionen sich auf XMLout auswirken... aber jetzt funktioniert es, das Ergebnis kann sich echt sehen lassen :)
    
    Ich musste zwar an zwei stellen id-Tags einfügen und die Verarbeitung im Programm entsprechend anpassen, aber das waren nur Kleinigkeiten. Jetzt bekomme ich genau das XML raus, was ich rein gesteckt hab :-)
    
    Danke für den Tipp ^^ Auch wenn es jetzt irgendwie hoffnungslos einfach scheint, aber ich musste einfach ne Weile probieren, bis ich den Dreh raus hatte.
    - +13 replies
    - pq
      
      2010-10-10 17:15
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      XML::Simple ist eben nur simpel für wirklich simples xml =)
      für alles andere würd ich es nicht benutzen und stattdessen XML::LibXML. XML::Simple braucht mir da zu viele optionen, bis man es einigermassen so hat wie gewünscht.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +12 replies
      - Nordlicht
        
        2010-10-10 18:11
        
        User since
        2005-10-16
        182 Artikel
        BenutzerIn
        
        Ja hast schon recht, aber erst einen kompletten Parser mit allen Handlern etc zusammen zu basteln ist halt auch irgendwie aufwendig. Bisher hatte ich dazu keine Lust ^^^
        
        edit: trotzdem bin ich am überlegen, es vielleicht doch irgendwann einmal zu machen, so dass ich ein Grundgerüst hab, dass ich dann nach Belieben anpassen kann.
        Last edited: 2010-10-10 18:13:28 +0200 (CEST)
        
        +11 replies
        
        Nordlicht
        
        2010-10-12 17:01
        
        User since
        2005-10-16
        182 Artikel
        BenutzerIn
        
        Ich hab nochmal ne Frage, ich häng die hier einfach mal an, weil es sich für nen neuen Thread kaum lohnt. Es geht um das Modul XML::LibXML unter Windows...
        
        Ich hab heute mal XML::LibXML ausprobiert... es stellte sich jedoch raus, dass die Module
        
        - XML::LibXML::Node
        - XML::LibXML::Text
        
        sowie eine ganze Reihe weitere Module die zu XML::LibXML gehören, nicht im entsprechenden Modulverzeichnis lagen. Ich dachte zuerst, es sei ein Installationsfehler und hab XML::LibXML noch mal heruntergeladen, aber die Module fehlen weiterhin...leider ist der vorhandene Teil ziemlich nutzlos, ohne den Rest :-)
        
        Frage: Warum sind die Module dokumentiert (sprich: HTML-Manpages vorhanden), die Module selbst aber fehlen? Wer macht denn sowas?
        
        Gruß, Nordlicht.
        Last edited: 2010-10-12 17:03:52 +0200 (CEST)
        
        +10 replies
        
        murphy
        
        2010-10-12 17:38
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Dokumentiert werden im Allgemeinen Packages, geladen werden Module. Auch wenn es üblich ist, dass ein Modul ein namensgleiches Package erzeugt, wenn es geladen wird, so ist das keineswegs zwingend immer so. Insbesondere ist es durchaus üblich, dass ein Modul auch noch Subpackages erzeugt.
        
        Langer Rede kurzer Sinn: Es genügt das Modul XML::LibXML zu laden, damit alle Packages mit Namen, die mit XML::LibXML beginnen, verfügbar sind.
        When C++ is your hammer, every problem looks like your thumb.
        
        +9 replies
        
        Nordlicht
        
        2010-10-13 13:23
        
        User since
        2005-10-16
        182 Artikel
        BenutzerIn
        
        Ja... nur genau das ist bei mir nicht der Fall... genau darum geht es. Einige Module aus dem Package XML::LibXML fehlen... um nicht zu sagen, die meisten :-)
        
        Ich hab ja den Package Manager (PPM) von Activestate benutzt, der sollte ja normal das gesamte Package herunterladen.
        
        Gruß, Nord.
        Last edited: 2010-10-13 13:25:21 +0200 (CEST)
        
        +8 replies
        
        pq
        
        2010-10-13 13:41
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das heisst konkret, dass du eine fehlermeldung bekommst?
        
        bitte poste mal ein bisschen code und die fehlermeldung.
        
        ich glaube ja, bezüglich der module gibt es immer noch ein missverständnis. die packages müssen nicht alle als datei vorhanden sein, wie murphy schon sagte.
        
        wenn du eine entsprechende fehlermeldung bekommst, ist das ppm-paket kaputt.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +7 replies
        
        Nordlicht
        
        2010-10-13 17:10
        
        User since
        2005-10-16
        182 Artikel
        BenutzerIn
        
        Den Fehler bekomme ich sobald ich versuche Funktionen der entsprechenden Module zu verwenden. Zum Beispiel die Funktion setData() aus dem Modul XML::LibXML::Node.
        
        da bekomme ich dann den gleichen Fehler wie auch im folgenden Beispiel:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #/usr/bin/perl use strict; use warnings; use XML::LibXML; use XML::LibXML::Node; # nur um zu zeigen was passiert, normal lass ich das weg ---------- Erzeugt Fehler: Can't locate XML/LibXML/Node.pm in @INC (C:/Perl/site/lib C:/Perl/lib) at C:\Xitami\cgi-bin\test.pl line 6. BEGIN failed--compilation aborted at C:\Xitami\cgi-bin\test.pl line 6.
        
        Ich hab leider grad den ursprünglichen Code nicht mehr zur Hand, aber es war exakt die gleiche Meldung und es passierte immer, wenn ich Funktionen aus den oben genannten Modulen aufgerufen hab.
        Last edited: 2010-10-13 17:18:15 +0200 (CEST)
        
        pq
        
        2010-10-13 17:18
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        bitte zeige den ursprünglichen code.
        der gezeigte *kann* gar nicht funktionieren, da XML::LibXML::Node eben *nicht* in einer datei XML/LibXML/Node.pm liegt, sondern in XML/LibXML/NodeList.pm, welches auch automatisch von XML::LibXML geladen wird.
        
        also zum dritten mal: man kann kein "use XML::LibXML::Node" machen, weil es in einem anderen modul liegt. warum willst du unbedingt das use machen? versteh ich nicht.
        
        Code (perl): (dl )
        
        use XML::LibXML; # REICHT VÖLLIG AUS
        
        bitte sag genauer, was du nicht verstehst.
        
        und der code, der in deiner erinnerung den fehler hervorgerufen hat, hatte bestimmt einen anderen fehler als ursache.
        
        ich behaupte immer noch, das ppm-paket ist *nicht* kaputt.
        
        edit: typo
        Last edited: 2010-10-13 17:20:29 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        topeg
        
        2010-10-13 18:32
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Du hast das Paket XML::LibXML::Node schon mit use XML::LibXML geladen. In der Datei, die mit XML::LibXML (also "XML/LibXML.pm") geladen wurde, enthält mehrere Pakete darunter auch XML::LibXML::Node.
        Das hier
        
        Code (perl): (dl )
        
        1 2 3 4
        
        #-------------------------------------------------------------------------# # XML::LibXML::Node Interface # #-------------------------------------------------------------------------# package XML::LibXML::Node;
        
        findet sich in "XML/LibXML.pm".
        
        +4 replies
        
        pq
        
        2010-10-13 19:18
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ah, kommt wohl auf die version an, entweder ist es in LibXML.pm oder in LibXML/NodeList.pm. auf jeden fall braucht und kann man es nicht explizit laden =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        topeg
        
        2010-10-13 19:59
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        ja ist recht egal. Immerhin steht in "LibXML.pm" ganz weit oben:
        
        Code (perl): (dl )
        
        1 2 3
        
        use XML::LibXML::Error; use XML::LibXML::NodeList; use XML::LibXML::XPathContext;
        
        Es wird also alles nötige geladen, egal wo es untergebracht ist. :-)
        
        +2 replies
        
        Nordlicht
        
        2010-10-14 19:29
        
        User since
        2005-10-16
        182 Artikel
        BenutzerIn
        
        Das hier war der Code
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        use XML::LibXML; my $isbn = '076455106X'; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file('test.xml'); my $query = "//book[isbn = '$isbn']/pages/text()"; my($node) = $doc->findnodes($query); $node->setData('394'); print $doc->toString;
        
        Dazu gab's noch einen Beispiel-Inhalt einer XML-Datei.
        Ich musste lange suchen, bis ich das Beispiel aus dem Netz wieder gefunden hatte, mit dem der Fehler aufgetreten war... Ich weiß nicht was ich beim kopieren des Codes von der Seite falsch gemacht hab, aber aus irgend einem Grund funktioniert es jetzt, als wäre nie was gewesen.
        
        Wenigstens hat sich das Problem damit erledigt. Auch wenn ich nicht weiß was es war.
        
        Ich glaub die Fehlermeldung war doch ne andere gewesen, der Debugger gab ne Meldung aus, die Sinngemäß sagte, er hätte die Funktion setData() nicht gefunden... warum auch immer. Jetzt geht es wenigstens wieder.
        
        @pq: Das mit dem Laden hab ich jetzt verstanden :)
        
        topeg
        
        2010-10-15 00:18
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2
        
        my($node) = $doc->findnodes($query); $node->setData('394');
        
        Hier wird nicht geprüft ob auch etwas gefunden wurde. Wenn "$node=undef" ist oder "$node=''" enthält, dann kann auch die Funktion nicht gefunden erden.
        Das könnte helfen:
        
        Code (perl): (dl )
        
        1 2 3
        
        my($node) = $doc->findnodes($query); die("Node not found") unless($node); $node->setData('394');

View all threads created 2010-10-10 00:05.