XML Parsen (Allgemeines zu Perl)

[thread]17403[/thread]

XML Parsen

Tags: perl5 XML Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+17 replies
perl-snaks

2012-05-08 12:49
User since
2012-04-19
54 articles
BenutzerIn
Hallo Zusammen,
ich rufe einen report vom einem Server (via HTTPs) auf und kommt der Report als XML zurück.
Ich will die Augabe (XML) parsen.
Habe dafür diesen Skript geschrieben.
Code (perl): (dl )

1 2 3 4

if ($response->is_success) { my $parser = XML::LibXML->new(validation => 1); my $doc = $parser->parse_file($response); dump_nodes($doc->getDocumentElement);
Aber ich bekomme die Fehlermeldung:
Code (perl): (dl )

"Could not create file parser context for file "HTTP::Response=HASH(0x1036abc)": No such file or directory at C:/Apache/........
Kennt jemand diesen fehler?
- pq
  
  2012-05-08 12:50
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  warum hast du keine tags vergeben? wie wärs z.b. mit XML und perl5?
  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
- +15 replies
- pq
  
  2012-05-08 12:55
  User since
  2003-08-04
  12208 articles
  Admin1
  vielleicht einfach nochmal die doku zu LWP::UserAgent und HTTP::Response lesen.
  $response ist ein HTTP::Response-objekt, und das als string ist sicher nicht das, was du willst.
  
  gaaanz oben in der doku von HTTP::Response steht:
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  $response = $ua->request($request) if ($response->is_success) { print $response->decoded_content; } else { print STDERR $response->status_line, "\n"; }
  
  der *content* steht also in $response->decoded_content
  
  zweitens sagst du parse_file, und parse_file erwartet einen *dateinamen*.
  du hast aber doch gar keine datei, sondern möchtest doch vermutlich den string aus der http-response übergeben.
  
  ergo:
  my $doc = $parser->parse_string($response->decoded_content);
  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
  - +14 replies
  - perl-snaks
    
    2012-05-08 14:11
    User since
    2012-04-19
    54 articles
    BenutzerIn
    
    Great pq! ich möchte den String aus der http-response übergeben und parsen.
    
    Ich habe genau getan wie du es gesagt hast:
    
    Code (perl): (dl )
    
    my $doc = $parser->parse_string($response->decoded_content);
    
    das scheint zu funktionieren aber ich bekome diese Fehlermeldung:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    :2: I/O error : failed to load external entity "https://server.de/report-1.dtd" <!DOCTYPE SCAN SYSTEM "https://server.de/report-1.dtd"> ^ :5: validity error : Validation failed: no DTD found !
    - +13 replies
    - GwenDragon
      
      2012-05-08 14:38
      
      User since
      2005-01-17
      14749 articles
      Admin1
      
      Wenn in deinen XML-Daten eine DTD-Deklaration für den Doctype drin ist, muss die ladbar sein!
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +12 replies
      - perl-snaks
        
        2012-05-09 09:52
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Hi GwenDragon normalerweise muss ladbar sein. Aber ich denke, weil ich mit IE v7 arbeite.
        Deswegen.
        
        Ich gehe einen anderen Weg jetzt, um das XML zu HTML zu parsen und zwar mit XML:Parser.
        
        Leider bekomme ich bei folgenden Skript:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        use XML::Parser; my $zeiger = new XML::Parser (); $zeiger->setHandlers (Start => \&anfang,End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("test.xml"); sub anfang { $wert_des_zeigers = shift; $starttag= shift; print "<$starttag>"; print "\n"; } sub ende { ($wert_des_zeigers,$endtag) = @_; print "</$endtag>\n"; } sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " $inhalt"; }
        
        Diese Fehlermeldung:
        
        Code (perl): (dl )
        
        1 2
        
        Unknown Parser handler type: start Valid types: Attlist CdataEnd CdataStart Char Comment Default Doctype DoctypeFin Element End Entity ExternEnt ExternEntFin Final Init Notation Proc Start Unparsed XMLDecl at C:Apache/cgi-bin/test.pl line 53.
        
        Sagt jemand der Fehler was?
        
        Danke.
        
        +11 replies
        
        perl-snaks
        
        2012-05-09 10:14
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Hallo Zusammen,
        
        ich habe meinen Skript jetzt getestet und hat XML zu HTML dekodiert.
        Aber ich habe XML in einem Verzeichnis gespeichert.Also anstatt:
        
        Code (perl): (dl )
        
        1 2 3
        
        $zeiger->parse_string($response->content); $zeiger->parsefile ("test.xml");
        
        Jetzt will ich die Ausgabe in einem Verzeichnis speichern. Also:
        
        Code (perl): (dl )
        
        1 2 3
        
        if ($response->is_success) { my $doc = $response->content; ####in einem Verzeichnis speichern
        
        weiss jemand wie das geht?
        
        +10 replies
        
        GwenDragon
        
        2012-05-09 11:20
        
        User since
        2005-01-17
        14749 articles
        Admin1
        
        Wie beim erstellen einer Datei:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $fname = "/home/test/myxml/out.xml"; # oder anderes Verzeichnis open (my $out, '>', $fname) or die $!; binmode $out; # as above print $fh $doc; close $fh or die $!;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +9 replies
        
        GUIfreund
        
        2012-05-09 11:43
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        2012-05-09T09:20:09 GwenDragon
        Wie beim erstellen einer Datei:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $fname = "/home/test/myxml/out.xml"; # oder anderes Verzeichnis open (my $out, '>', $fname) or die $!; binmode $out; # as above print $fh $doc; close $fh or die $!;
        
        Autsch. Muss wohl $out statt $fh heißen.
        Gruß
        GUIfreund
        
        +8 replies
        
        GwenDragon
        
        2012-05-09 12:17
        
        User since
        2005-01-17
        14749 articles
        Admin1
        
        Entschuldige, mein Fehler. Es muss $fh heißen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +7 replies
        
        perl-snaks
        
        2012-05-09 13:25
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Hallo GwegDragon,
        
        Danke für deine Antwort.
        Vielleicht habe ich dein Code nicht so richtig verstanden deswegen hat es bei mir nicht funktioniert.
        
        Also ich ziehe einen Report via HTTPs und kommt als response ein XML. Diese möchte ich zu HTML parsen.
        Das Parsen möchte ich mit XML::Parser machen. Leider diese XML::Parser bietet keine Parse_String Methode.
        Deswegen habe ich gedacht, dass ich response->decode_content in einem Verzeichnis speichere und wieder parsen mit:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
        
        use XML::Parser; my $zeiger = new XML::Parser (); $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("test.xml"); print "<html><head><body>"; sub anfang { %watnu1=("persona"=>"<table border=1 bgclor=yellow>","name"=> "<tr><td>","telefon"=>"<td>","beruf"=>"<td>","adresse"=>"<td>"); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; } sub ende { %watnu2=("persona"=>"</table>","name"=> "</td>","telefon"=>"</td>","beruf"=>"</td>","adresse"=>"</td></tr>"); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " $inhalt"; } print "</body></html>";
        
        Logischerweise soll ich eine Datei erstellen und den Inhalt in dieser Datei speichern.
        
        geht das auch mit dein code?
        Danke im Voraus.
        
        +6 replies
        
        pq
        
        2012-05-09 13:28
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        2012-05-09T11:25:22 perl-snaks
        Also ich ziehe einen Report via HTTPs und kommt als response ein XML. Diese möchte ich zu HTML parsen.
        Das Parsen möchte ich mit XML::Parser machen. Leider diese XML::Parser bietet keine Parse_String Methode.
        
        vielleicht solltest du einfach mal die doku lesen. (komisch, habe ich das in diesem thread nicht schonmal erwähnt?)
        
        in der doku zu XML::Parser steht gaaanz am anfang:
        
        Code: (dl )
        
        1 2 3 4 5
        
        use XML::Parser; $p1 = new XML::Parser(Style => 'Debug'); $p1->parsefile('REC-xml-19980210.xml'); $p1->parse('<foo id="me">Hello World</foo>');
        
        nicht jedes modul muss seine methode parse_string und parse_file nennen.
        wie du hier siehst (oder sehen solltest), heisst die methode, um strings zu parsen, hier einfach "parse".
        
        bitte lies also die doku!
        wenn du was an der doku nicht verstehst, kannst du immer noch fragen.
        
        davon abgesehen ist es natürlich beim entwickeln temporär sinnvoller, das xml in eine datei zwischenzuspeichern, damit du nicht bei jedem testen den request neu machen musst.
        Last edited: 2012-05-09 13:31:34 +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
        
        perl-snaks
        
        2012-05-10 15:49
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Hallo Zusammen,
        wenn ich mit XML::Lib was parse bekomme ich "#text"
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        my $parser = XML::LibXML->new(); my $doc = $parser->parse_string($response->content); my $root = $doc->documentElement(); print $root->nodeName, "\n"; foreach my $node ($root->childNodes){ print $node->nodeName, "\n<br>"; if ($node->hasAttributes){ foreach ($node->attributes){ printf(" %10s: %-20s\n",$_->name, $_->value); } } }
        
        SERVER #text
        ERROR
        number: 1000 #text
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        <?xml version="1.0" encoding="UTF-8" ?> <!DOCTYPE SCAN SYSTEM "https://w3.com/example.dtd"> <SERVER value="None"> <ERROR number="1000"> fehler aufgetreten </ERROR> </SERVER>
        
        Liegt das an UTF8, dass der Text nicht angezeigt wird?
        
        modedit Editiert von GwenDragon: Perl-tags repariert
        Last edited: 2012-05-10 17:34:45 +0200 (CEST)
        
        +4 replies
        
        pq
        
        2012-05-10 16:09
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        #text wird angezeigt bei den leerzeichen zwischen den tags.
        wenn du die umbrüche richtig machst, siehst du das auch.
        um an den text innerhalb des <ERROR> tags zu kommen, brauchst du $node->textContent
        
        siehe die doku zu XML::LibXML::Node und XML::LibXML::Element
        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
        
        perl-snaks
        
        2012-05-10 17:18
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Danke pq für die Antwort.
        XML habe ich nicht erstellt sondern ziehe ich es von einem Server.
        Die XML-Datei enthält CDATa und Kommentare (komplexe struktur).
        Kann man irgendwie #text ignorieren (so trick)?
        
        +2 replies
        
        pq
        
        2012-05-10 17:29
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        mit den umbrüchen meinte ich deine in perl.
        wenn du das in einem CGI-skript als HTML ausgibst, dann siehst du halt keine zeilenumbrüche. daher steht #text direkt hinter der 1000.
        
        du holst dir eben das, was du ausgeben willst. was willst du denn ausgeben?
        hol dir die elemente, die du haben willst, z.b. per xpath.
        foreach my $node ($root->findnodes("ERROR"))
        damit kriegst du nur <ERROR> elemente und auch nicht die whitespaces dazwischen.
        alternativ
        $root->findnodes("/SERVER/ERROR")
        Last edited: 2012-05-10 17:33:58 +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
        
        perl-snaks
        
        2012-05-10 17:48
        
        User since
        2012-04-19
        54 articles
        BenutzerIn
        
        Danke pq du/Sie bist/Sind einen Engel.
        #text ist verschwunden.

View all threads created 2012-05-08 12:49.