Ausgabe eines URLs parsen (Allgemeines zu Perl)

[thread]17340[/thread]

Ausgabe eines URLs parsen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+13 replies
perl-snaks

2012-04-19 10:58
User since
2012-04-19
54 Artikel
BenutzerIn
Hallo Zusammen,
ich bin einen Einsteiger in Perl-Programmierung . Ich bin Azubi und habe eine Aufgabe bekommen.

XML zu parsen?
Die Firma hat eine Software und diese Software bietet eine Vorkonfigurierte Schnittstelle (API). Diese Schnittstelle liefert Reports aber nur als XML-Format.

Ich habe eine einfache Webseite erstellt. Diese Seite enthält nur ein Inputfeld. Wenn man im Inputfeld ein Referenz eingibt, kommt das Ergebnis als XML. Bis hierhin bin soweit und habe ich hinbekommen.

Mein Problem ist das XML zu parsen. Ich habe gedacht, dass ich die XML-Ausgabe des URLs in ein Variale speicher $inhalt = get ($link) und dann den Inhalt parsen aber das habe ich nicht hinbekommen.

Hat jemand schon die Ausgabe eines URL´s geparst?
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

#!C:\Perl\bin\Perl.exe use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use XML::Twig; my $cgi = new CGI; my $var = CGI::param('Ref'); my $url = 'https://XYZ.de/msp/ '; my $link = "$url?Ref=$var&save_report=yes" ; print "Location: $link\n\n"; my $twig = XML::Twig->new->parseurl("https://www.google.de"); my $summary = $twig->first_elt( 'summary'); print $summary->text, "\n";
Für jede Hilfe und Hinweis werde ich mich sehr freuen.

Vielen Dank

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2012-04-19 11:11:58 +0200 (CEST)
- +12 replies
- pq
  
  2012-04-23 16:09
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  wo liegt denn eigentlich das problem? bekommst du eine fehlermeldung?
  zu XML::Twig kann ich nichts sagen, ich arbeite meist mit XML::LibXML
  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
  - +11 replies
  - perl-snaks
    
    2012-04-23 16:30
    User since
    2012-04-19
    54 Artikel
    BenutzerIn
    
    vielen Dank für ihre Antwort.
    
    Ich habe ein report mit dem Modul XML::parser zu html konvertiert.(aber manual)
    Mein Problem ist, dass ich z.B eine URL in der Adresse leiste eingebe. Diese URL verfügt über Parameter. z.B referenz.
    mit einem bestimmten referenz bekomme ich einen Report als XML.
    Und will diese XML zu HTML parsen. Dafür habe ich dies Skript geschrieben.
    Aber ich bekomm das irgendwie nicht hin.
    
    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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
    
    #!C:\Perl\bin\Perl.exe print "Content-type:text/html\n\n"; use CGI; use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; use XML::Simple; use XML::Parser; use XML::LibXML; my $cgi = new CGI; my $var = CGI:aram('ip'); my $url1 = 'https://www.xxyyzz.de/'; ### url my $uri = "$url1?ref=$var& save_report=yes" ; #### es gibt eine HTML-Seite mit einem Inputfeld nach der eingabe des Referenzes # wird in der URL # übermittelt und ganze URL an den Server des Hertsteller geleitet, so dass der server anhand des eingegeben Referenz # ein Report als XMl zur Verfügung stellt. print "Location: $uri\n\n"; open(KIRSCHE,">>c:/Programme/Apache/cgi-bin/grab.xml"); ####XML Ausgabe soll in dieser Datei gespeichert select(KIRSCHE); print KIRSCHE $doc; select(STDOUT); close(KIRSCHE); my $zeiger = new XML::Parser (); ######die gespeicherte Datei parsen $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("grab.xml"); print "<html><head><body>"; sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " <table><td>$inhalt</td></table>"; } sub ende { %watnu2=("SCAN"=>"</table>","KEY"=> "</td>","IP"=>"</td>","OS"=>"</td>","NETBIOS_HOSTNAME"=>"</td></tr>"); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub anfang { %watnu1=("SCAN"=>"</table>","KEY"=> "</td>","IP"=>"</td>","OS"=>"</td>","NETBIOS_HOSTNAME"=>"</td></tr>"); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; }
    
    Hat jemand eine Idee wie ich die URL ausgabe (XML) in einem Verzeichnis speichere und wieder mit XML::parser kodieren.
    
    Vielen Dank im Voraus.
    
    modedit Editiert von pq: code-tags hinzugefügt, lange kommentarzeile umgebrochen
    Last edited: 2012-04-23 16:46:02 +0200 (CEST)
    - +10 replies
    - pq
      
      2012-04-23 16:51
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      vorweg: bitte formatiere code mit code-tags. wie, siehst du hinter dem link mit dem nichtssagenden namen "Formatierungshilfe". ich habe jetzt dieses posting wie dein originalposting auch editiert.
      
      mir fehlt auch hier wieder die angabe des problems.
      vielleicht solltest du erstmal klein anfangen und vor allem schritt für schritt vorgehen.
      runterladen funktioniert ja anscheinend, dann lass doch den teil erstmal weg und benutze eine zwischengespeicherte XML-datei.
      dann sag, was du genau herausparsen willst, und was nicht geht.
      
      ausserdem:
      
      Quote
      
      Code: (dl )
      
      1 2 3
      
      use XML::Simple; use XML::Parser; use XML::LibXML;
      
      drei module gleichzeitig willst du bestimmt nicht zum parsen verwenden. und du benutzt ja auch im weiteren code nur XML::Parser.
      für eins solltest du dich entscheiden und daher erstmal mit einer kleinen beispieldatei anfangen, um zu sehen, wie das ganze überhaupt funktioniert.
      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
      - +9 replies
      - perl-snaks
        
        2012-04-23 17:05
        
        User since
        2012-04-19
        54 Artikel
        BenutzerIn
        
        Vielen Dank für Ihre Antwort.
        
        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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
        
        !C:\Perl\bin\Perl.exe [/c]print "Content-type:text/html\n\n"; use CGI; use CGI::Carp qw(fatalsToBrowser); use XML::Parser; my $cgi = new CGI; my $var = CGI:aram('ip'); my $url1 = 'https://www.xxyyzz.de/'; ### url my $uri = "$url1?ref=$var& save_report=yes" ; print "Location: $uri\n\n"; #### es gibt eine HTML-Seite mit einem Inputfeld nach der eingabe des Referenzes # wird in der URL # übermittelt und ganze URL an den Server des Hertsteller geleitet, so dass der server anhand des eingegeben Referenz # ein Report als XMl zur Verfügung stellt. Bis hier hin bekomme ich eine XML-Ausgabe. Ich will jetzt die Ausgabe des "print "Location: $uri\n\n";" in einem verzeichnis zwischen speichern: open(KIRSCHE,">>c:/Programme/Apache/cgi-bin/grab.xml"); ####XML Ausgabe soll in dieser Datei gespeichert select(KIRSCHE); print KIRSCHE $doc; select(STDOUT); close(KIRSCHE); DIe XMl datei "grab.xml" mittels XML::parser zu html umwandeln: my $zeiger = new XML::Parser (); ######die gespeicherte Datei parsen $zeiger->setHandlers ( Start => \&anfang, End => \&ende,Char=>\&inhalt ); $zeiger->parsefile ("grab.xml"); print "<html><head><body>"; sub inhalt { ($wert_des_zeigers,$inhalt)=@_; print " <table><td>$inhalt</td></table>"; } sub ende { %watnu2=("SCAN"=>"</table>","KEY"=> "</td>","IP"=>"</td>","OS"=>"</td>","NETBIOS_HOSTNAME"=>"</td></tr>"); ($wert_des_zeigers,$endtag) = @_; print "$watnu2{$endtag}"; } sub anfang { %watnu1=("SCAN"=>"</table>","KEY"=> "</td>","IP"=>"</td>","OS"=>"</td>","NETBIOS_HOSTNAME"=>"</td></tr>"); $wert_des_zeigers = shift; $starttag=shift; print $watnu1{$starttag}; print "\n"; }
        
        Vielen Dank im Voraus
        Last edited: 2012-04-23 17:09:32 +0200 (CEST)
        
        +8 replies
        
        pq
        
        2012-04-23 17:15
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also ich schlage wie gesagt kleine schritte vor.
        
        runterladen:
        
        Code (perl): (dl )
        
        1 2
        
        use LWP::Simple; getstore($url, "test.xml");
        
        dann parsen mit XML::Parser oder XML::LibXML
        
        Quote
        Ich will jetzt die Ausgabe des "print "Location: $uri\n\n";" in einem verzeichnis zwischen speichern:
        
        print "Location: $uri\n\n" hat die ausgabe Location: $uri.
        damit wirst du nicht weiterkommen. du musst die datei schon selbst runterladen oder wahlweise von XML::Twig runterladen lassen. XML::Twig bietet halt alles in einem, aber LWP::Simple ist ja auch einfach genug.
        
        mach das ganze doch mal in einem einfachen skript statt CGI. wenn du dann erfolgreich die datei parsen kannst, dann kannst du das CGI ja wieder mit reinpacken.
        
        es kann auch sonst keiner beim parsen helfen, da ja keiner weiss, wie die datei aussieht. nochmal: scvhreib dir eine kleine beispiel-XML und probiere etwas rum.
        
        wie lange machst du schon perl? es fällt mir schwer einzuschätzen, was du für hilfe benötigst. das sieht alles eher danach aus, als ob du irgendwelche schnipsel zusammenkopierst.
        
        hier mal ein paar tutorials:
        http://perl-tutorial.org/
        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
        
        perl-snaks
        
        2012-04-23 17:33
        
        User since
        2012-04-19
        54 Artikel
        BenutzerIn
        
        Vielen DAnk nochmal für Ihre hilfreiche Antworten.
        
        Ich denke, dass Sie mein Problem erkannt haben und zwar mit print location:$uri.
        Wenn Sie mein Skript sehen, dann stellen Sie fest, dass der Skript einen Wert vom Anwender übernimmt und baut eine URL zusammen. Diese URL soll weitergeleitet werden, um eine Ausgabe zu bekommen.
        Leider habe ich der Zusammenbau des URLs nur mittels CGI hinbekommen!
        Wenn ich mit LWP::Simple versuche die URL mit der Methode get($uri) weiterzuleiten passiert nichts.
        
        Wenn Sie bitte noch mal einen blick auf meinen hauptskript werfen, dann sehen sie das es ein Variable deklariert. Diese Variable soll den Wert vom User im URL bauen.
        
        Wie kann ich die URL weiterleiten mit dem Packet LWP?
        
        +6 replies
        
        pq
        
        2012-04-23 17:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also beides gleichzeitig geht nicht.
        
        du kannst entweder den user zur xml-url weiterleiten, das geht dann mit print "Location...".
        danach ist der user auf der url gelandet und weg von deinem skript.
        
        oder du lädst das XML selber runter mit LWP::Simple und parst es dann und zeigst dem user dann das ergebnis (was auch immer du da anzeigen willst, wir kennen weder das XML noch was du als ergebnis-ausgabe willst).
        
        runterladen der url in eine datei:
        
        Code (perl): (dl )
        
        1 2
        
        use LWP::Simple; getstore($url, "test.xml");
        
        runterladen in eine variable
        
        Code (perl): (dl )
        
        1 2
        
        use LWP::Simple; my $xml = get($url);
        
        im ersten fall musst du mit XML::Parser oder XML::LibXML etc. die datei öffnen lassen und parsen, im zweiten fall die variable direkt.
        
        beispiel (steht so ähnlich in der doku!):
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        use XML::Parser; my $parser = new XML::Parser(Style => 'Debug'); $parser->parsefile('test.xml'); # aus datei $parser->parse($xml); # direkt aus variable
        
        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-04-23 20:10
        
        User since
        2012-04-19
        54 Artikel
        BenutzerIn
        
        Vielen Dank noch mal.
        Daran liegt das Problem und zwar, dass der User selber sein Referenz in HTML-Seite eingibst und der Report als Ergebnis anschaust.
        Wenn es an mir liegt, kann ich anders umgehen.
        
        Gib es irgend eine möglichkeit mit LWP-Bibliothek ein URL aufzubauen und Inhalt des URLs in einer Datei oder Variable zu speichern.
        Ich muss erst mal diese beide schritten überstehen, dann kann ich mit parsen anfangen.
        
        +4 replies
        
        pq
        
        2012-04-23 20:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        aus deinem original-skript oben:
        my $link = "$url?Ref=$var&save_report=yes" ;
        
        dann, wie beschrieben:
        
        Code (perl): (dl )
        
        1 2
        
        use LWP::Simple; my $xml = get($link);
        
        in $xml befindet sich dann der inhalt der url, also das XML.
        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-04-23 20:59
        
        User since
        2012-04-19
        54 Artikel
        BenutzerIn
        
        Ich glaube der Weg ist einfacher geworden, dass ich jetzt weiss, dass LWP mit CGI nicht funktionieren kann.
        Das stimmt ist einfacher mit LWP die Ausgabe in einer Datei zu speichern.
        
        Vielen Dank.
        
        Ich habe jetzt nur ein einziges Problem und zwar, dass ich den eingegebenen Parameter vom user mittels CGI::param zum URL wieter übermittle.
        Gibt es ein Module, welcher Pamametser einlest ausser CGI.
        z.B Formualr parameter werden mit Get Methode an die URL anhängen!!
        
        +2 replies
        
        pq
        
        2012-04-24 10:08
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich hab nie gesagt, dass "LWP nicht mit CGI funktioniert".
        
        du kannst nach wie vor die parameter per CGI::param auslesen. wieso sollte das ein problem sein?
        
        ich sagte doch nur, dass du nicht gleichzeitig den user auf die url weiterleiten kannst und dann aber selber noch was ausgeben. das hindert dich doch nicht daran, cgi-parameter auszulesen.
        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
        
        pq
        
        2012-04-25 13:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Splitted to LWP und proxy
        
        Original message by 'perl-snaks':
        
        Quote
        vielen Dank für die ausführliche Antwort.
        Ich hab...
        
        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

View all threads created 2012-04-19 10:58.