XML: Zahlen anhand von Keywords finden (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-25 17:22:33
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
1 Gast

[thread]18237[/thread]

submit to reddit

XML: Zahlen anhand von Keywords finden [gelöst]

[gelöst]

Tags: perl5 regex XML keywords Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+20 replies
cohama

2013-03-28 13:16

User since
2011-08-16
102 Artikel
BenutzerIn

Hallo zusammen,

ich muss leider zu geben, dass ich die Regulär Expression noch nicht richtig verstanden habe.
Zur Zeit stehe ich vor der Aufgabe, bestimmte Zahlen aus einer Server-Antwort einzulesen, wenn vor dieser Zahl bestimmte Keywords stehen.

Am Beispiel:

Die Antwort des Servers sieht in etwa so aus:

<ServerResp><pp ppn="1" relType="Dynamic" uid="3" ipei="00435709475" ac="10551" s="Yes" uak="328497hfdfh8" encrypt="1" capMessaging="1" capMessagingForInternalUse="0" capEnhLocating="1" capBluetooth="1" ethAddr="00:30:42:0F:F2:7D" hwType="630d" /></ServerResp>

Aus dieser benötige ich die Zahlen anhand der Keywords uid, ppn, ethAddr sowie hwType

Vielen Dank im Voraus
- pq
  
  2013-03-28 13:20
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  und wer hat dir erzählt, dass man XML mit regular expressions parsen sollte?
  nimm XML::LibXML. etwas mehr einarbeitung, aber sauberer und bei der nächsten aufgabenstellung kannst du es gleich verwenden.
  
  aus unserem wiki: LibXMLBeispiel
  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
- +18 replies
- GwenDragon
  
  2013-03-28 15:26
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Eben mal kurz Regex ist nicht alles. ;)
  
  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
  
  use 5.010; use strict; use warnings; my $serverresponse = '<pp ppn="1" relType="Dynamic" uid="3" ipei="00435709475" ac="10551" s="Yes" uak="328497hfdfh8" encrypt="1" capMessaging="1" capMessagingForInternalUse="0" capEnhLocating="1" capBluetooth="1" ethAddr="00:30:42:0F:F2:7D" hwType="630d" />'; $serverresponse =~ s|[\r\n]||g; # falls auf mehere Zeilen dann Zeilenende rauslöschen my (@lines) = $serverresponse =~ m|\<pp\s+([^>]+)\s+/>|g; my %hash = # 4. dann ists ein Hash map { (split /=/) } # 3. Wertepaare am = auftrennen map { s/"//g;(split /\s+/) } # 1. " rauslöschen, 2. Wertepaare am Leerzeichen austrennen @lines; # für Zeilen #say "$_=>$hash{$_}" for keys %hash; # nur zum Test wenn gewünscht ;) say "$_ ist $hash{$_}" for qw(uid ppn ethAddr hwType);
  
  Fragen? Nur zu?
  Last edited: 2013-03-28 15:34:57 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +17 replies
  - pq
    
    2013-03-28 15:51
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    na wenn wir fertigen code liefern:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    use XML::LibXML; my $p = XML::LibXML->new; my $doc = $p->parse_string($xml); my $root = $doc->documentElement; my ($pp) = $root->findnodes("pp"); for my $field ( qw/ uid ppn ethAddr hwType /) { say $pp->getAttribute($field) }
    
    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
    - +16 replies
    - cohama
      
      2013-04-03 15:20
      
      User since
      2011-08-16
      102 Artikel
      BenutzerIn
      
      Hallo zusammen,
      
      vielen Dank soweit.
      Im Moment steht ick vor dem Problem, dass der Parser meint das Dokument ist leer?
      
      Hier ist mal die Anwort des Servers:
      
      Code: (dl )
      
      <GetPPUserResp><user uid="2" relType="Unbound" ppn="0" name="Test User" num="3461" hierarchy1="Physics" hierarchy2="Dr h.c." addId="" sipAuthId="3461" sipPw="M6WPCUL+3LLfXPuFV6TqsuYGUtosYcL8zWkyrUgyEQTJh4mPJcOWvLy+2ivcONn0NEumLq0rRSk6HZ5AiuqiNw==" sosNum="" manDownNum="" voiceboxNum="" pin="PwJvjDU/iECiv1d3VjnMN6TkCpWJM2Y9IgIxw5kXNuc7cMD8OVgahuaq9ItzG3eGGRd4mZUug+IDKHWDf0YLtw==" lang="English" forwardState="Off" forwardDest="" forwardTime="0" holdRingBackTime="3" callWaitingDisabled="0" trackingActive="0" locRight="0" locatable="1" msgRight="0" sendVcardRight="0" recvVcardRight="0" keepLocalPB="0" vip="0" external="0" BTlocatable="1" BTsensitivity="high" conferenceServerType="Global" conferenceServerURI="" monitoringMode="Off" HAS="Unknown" HSS="Unknown" HRS="Unknown" HCS="Unknown" SRS="Unknown" SCS="Unknown" CDS="Unknown" HBS="Unknown" BTS="Unknown" SWS="Unknown" CUS="Unknown" /></GetPPUserResp>
      
      Hier meine Code-Teile:
      
      Code: (dl )
      
      1 2 3 4
      
      $doc = $myObj->parse_string($Users); # Search through the XMl-Stuff print "This is $doc\n"; $root = $doc->documentElement; ($PPN) = $root->findnodes("user"); # Find the keyword
      
      Zum Schluss die Fehlermeldung vom Parser.
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      :1: parser error : Document is empty ^ :1: parser error : Start tag expected, '<' not found ^
      
      Genau die kann ick nicht verstehen, denn wie man an der Serverantwort sieht enthält sie XML-Elemente.
      - +15 replies
      - pq
        
        2013-04-03 15:46
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        schickt der server gar keine xml-deklaration mit?
        also sowas wie
        <?xml version="1.0" encoding="UTF-8"?>
        
        dann könntest du das manuell vorne an den string anfügen.
        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
        
        cohama
        
        2013-04-04 08:47
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo,
        
        vielen Dank für eure Hilfe. Leider besteht mein Problem immer noch in ähnlicher Form.
        
        modifizierte Serverantwort:
        
        Code: (dl )
        
        <?xml version="1.0" encoding="UTF-8"?><GetPPUserResp><user uid="2" relType="Unbound" ppn="0" name="Albert Einstein" num="3461" hierarchy1="Physics" hierarchy2="Dr h.c." addId="" sipAuthId="3461" sipPw="jIsp7DBnhh2ghUjQu2sL1Jeu3yjiSVpTBVY00cChFuJPyeEcCUP2pskEWbNfiFdwoe2KBX9SI8QZ0sVdn6n+Cw==" sosNum="" manDownNum="" voiceboxNum="" pin="UWovU0hfxB9KFM7KkQfiz7cRO2LCTvACD4KGuaSzQfGyI7d0jOUipzwFnijqAGPPpksRVQlla15ertMT8bZv9w==" lang="English" forwardState="Off" forwardDest="" forwardTime="0" holdRingBackTime="3" callWaitingDisabled="0" trackingActive="0" locRight="0" locatable="1" msgRight="0" sendVcardRight="0" recvVcardRight="0" keepLocalPB="0" vip="0" external="0" BTlocatable="1" BTsensitivity="high" conferenceServerType="Global" conferenceServerURI="" monitoringMode="Off" HAS="Unknown" HSS="Unknown" HRS="Unknown" HCS="Unknown" SRS="Unknown" SCS="Unknown" CDS="Unknown" HBS="Unknown" BTS="Unknown" SWS="Unknown" CUS="Unknown" /></GetPPUserResp>
        
        Fehlermeldung:
        
        Code: (dl )
        
        1 2
        
        :1: parser error : Start tag expected, '<' not found <?xml version="1.0" encoding="UTF-8"?>
        
        Hat noch jemand eine Idee?
        
        Muffi
        
        2013-04-04 09:39
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Und dieses XML steht auch sicher in der $Users Variable.
        Also du hast das nicht nur im Browser aufgerufen (und der macht vorher erstmal nen Redirekt, hat ne Session, ...).
        
        [EDIT]
        Also wenn du das XML mit
        
        Code (perl): (dl )
        
        $Users = q|hier das XML|;
        
        reinschreibst kommt der gleiche Fehler.
        1 + 1 = 10
        
        +12 replies
        
        pq
        
        2013-04-04 12:07
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        okay, dann nochmal andersherum.
        
        im folgenden zeige ich dir kompletten code inklusive ausgabe.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        my $xml = q{<ServerResp><pp ppn="1" relType="Dynamic" uid="3" ipei="00435709475" ac="10551" s="Yes" uak="328497hfdfh8" encrypt="1" } . q{capMessaging="1" capMessagingForInternalUse="0" capEnhLocating="1" capBluetooth="1" ethAddr="00:30:42:0F:F2:7D" hwType="630d" /></ServerResp>}; use XML::LibXML; my $p = XML::LibXML->new; my $doc = $p->parse_string($xml); my $root = $doc->documentElement; my ($pp) = $root->findnodes("pp"); for my $field ( qw/ uid ppn ethAddr hwType /) { say $pp->getAttribute($field) } __END__ 3 1 00:30:42:0F:F2:7D 630d
        
        wie du siehst, funktioniert das hervorragend, und das sogar ohne xml-deklaration.
        
        bei den informationen, die du postest, hilft leider nur eine glaskugel.
        
        bitte probier mein code-beispiel aus. funktioniert es?
        wenn nein, gibts irgendwo einen bug.
        wenn ja, was machst du in deinem skript anders? wenn du es nicht rausfindest, poste den kompletten relevanten code.
        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
        
        cohama
        
        2013-04-05 09:19
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo zusammen,
        
        es sieht so aus, wenn ich das Skript von pg nutze funktioniert es.
        Wenn ich mit meinem Script versuche, funktioniert es nicht.
        Hier mein Script:
        
        Code: (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
        
        #!/usr/bin/perl -w # Version 0.3 # Date Apr 2013 ######################################## # Modules use strict; # parameter Definition before use them use XML::LibXML; # Libary for XML use IO::Socket::SSL; # TCP/IP sockets ####################################### # Paramet Definition my $host = '192.168.2.101'; # Test OMM my $port = 12622; # OpenMobility-Manager-Port my $seqid = "4711"; # nice to have my $uname = "operator"; my $pw = "LoginPW"; my $protoVer = 41; # OM AXI Protocol Version -> unimportant my $timer = 1; my ($basicInfo,$OM_AXI_Input,$UserNotes,$myResponse,$Users); # Basic information -> Standard Response my ($RecAmount,$firstPPN); my @Values; my $socket = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer); # XML Parameter my $myObj = XML::LibXML->new; my ($preLine,$XMLin,$doc,$root,$PPN,$field); my ($child,$at,$na,$va); my (@kids,@atts); ########################### # main programm system("clear"); ################################## # OMM Axi $UserNotes = qq{<GetPPUser uid="2"/>\0}; $socket -> print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}); # Send Authentication $basicInfo = $socket->readline(); $socket -> print($UserNotes); $Users = $socket->readline(); ############ # XML Parsing ################## $preLine = '<?xml version="1.0" encoding="UTF-8"?>'; $XMLin = $preLine.$Users; print "$XMLin \n"; $doc = $myObj->parse_string($XMLin); # Search through the XMl-Stuff $root = $doc->documentElement; ($PPN) = $doc->findnodes("user"); # Find the keyword for $field ( qw{uid ppn ethAddr hwType}) { say $PPN->getAttribute($field) }
        
        Hier nochmal die erweiterte Antwort vom Server:
        
        Code: (dl )
        
        <?xml version="1.0" encoding="UTF-8"?><GetPPUserResp><user uid="2" relType="Unbound" ppn="0" name="Albert Einstein" num="3461" hierarchy1="Physics" hierarchy2="Dr h.c." addId="" sipAuthId="3461" sipPw="M0ziPLBb9ntxkx68hJ8920lcarx0x0SX5Lvcs5Pzi4TQeThP/vKsKEx1lLK9tiKc3FxREhGRpkUUIjY+FkmRag==" sosNum="" manDownNum="" voiceboxNum="" pin="ZkDJaRCnZgC6IxEaB4T2hm6cOrbwgfErC8DACJt5IVFqcfexe8ilupZYYg8QdBQMl6DHVEWlowooZSGYrTbFFw==" lang="English" forwardState="Off" forwardDest="" forwardTime="0" holdRingBackTime="3" callWaitingDisabled="0" trackingActive="0" locRight="0" locatable="1" msgRight="0" sendVcardRight="0" recvVcardRight="0" keepLocalPB="0" vip="0" external="0" BTlocatable="1" BTsensitivity="high" conferenceServerType="Global" conferenceServerURI="" monitoringMode="Off" HAS="Unknown" HSS="Unknown" HRS="Unknown" HCS="Unknown" SRS="Unknown" SCS="Unknown" CDS="Unknown" HBS="Unknown" BTS="Unknown" SWS="Unknown" CUS="Unknown" /></GetPPUserResp>
        
        Ich bin sicher, dass mehrere Augen den Grund dafür finden. ;-)
        
        pq
        
        2013-04-05 12:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        nun, wie sieht primitives debuggen aus?
        mein beispiel funktioniert, deins nicht.
        mein XML wird geparst, bei deinem steigt der parser aus.
        
        lösung:
        vergleiche das XML. nimm das XML aus deinem beispiel raus und packe es in meins. funktioniert es immer noch?
        
        da wir ja dein skript nicht ausführen können, bleibt nur weiterhin die glaskugel.
        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
        
        Raubtier
        
        2013-04-05 12:19
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2013-04-05T07:19:00 cohama
        Hallo zusammen,
        
        Code: (dl )
        
        1 2 3
        
        $doc = $myObj->parse_string($XMLin); # Search through the XMl-Stuff $root = $doc->documentElement; ($PPN) = $doc->findnodes("user"); # Find the keyword
        
        2 Dinge wären hilfreich:
        1. schmeiß den ganzen Socket-Kram hier für dein Testbesispiel im Forum raus, der scheint ja irrelevant zu sein.
        2. dann achte darauf, was passiert. Und achte auf Fehlermeldungen!
        
        Bei mir kommt dann nämlich: "Can't call method "getAttribute" on an undefined value at ng.pl line 22." (das ist bei mir das $PPN) - und das ist auch schon die Lösung. Wenn du von pq richtig abgeschrieben hättest, würde es auch funktionieren! Das $root wird ja nicht grundlos gesetzt, sondern um es danach auch zu benutzen. Dein Fehler ist also oben in der dritten von mir gequoteten Zeile.
        Last edited: 2013-04-05 12:21:40 +0200 (CEST)
        
        +8 replies
        
        pq
        
        2013-04-05 12:25
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ah, gut erkannt, das war mir entgangen...
        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
        
        cohama
        
        2013-04-05 13:26
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo,
        
        ich habe in meinem Script das
        
        Code: (dl )
        
        $doc
        
        durch
        
        Code: (dl )
        
        $root
        
        ersetzt, trotzdem lautet die Fehlermeldung ::1: parser error : Start tag expected, '<' not found.
        Wenn ich mein Script statisch mache, sprich die Antwort des Servers nicht in $Users speichern, sondern der $Users die Antwort fest mit Anführungszeichen eingeben, funktioniert das Script.
        Das heisst, wenn ich die Variable aus dem Socket speise -> Fehlermeldung, wenn ich das "Socket-Ergebnis" umgehen und fest die Serverantwort zuweise, funktioniert es?
        Aber warum?
        
        +5 replies
        
        pq
        
        2013-04-05 13:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann kann ich mir eigentlich nur noch vorstellen, dass in der serverantwort irgendwelche zeichen sind, die du nicht siehst und die beim kopieren in einen statischen string wegfallen.
        da hilft nur noch:
        
        Code (perl): (dl )
        
        1 2 3
        
        use Data::Dumper; $Data::Dumper::Useqq = 1; print Dumper $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
        
        +4 replies
        
        cohama
        
        2013-04-05 14:02
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo pg,
        
        ich habe kurz dein Hinweis umgesetzt.
        Das ist das Ergebnis?
        
        Quote
        $VAR1 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\0<GetPPUserResp><user uid=\"2\" relType=\"Unbound\" ppn=\"0\" name=\"Albert Einstein\" num=\"3461\" hierarchy1=\"Physics\" hierarchy2=\"Dr h.c.\" addId=\"\" sipAuthId=\"3461\" sipPw=\"osD3Ec0aAL9TK3rM1woviG/UMu8ZD1ICw95QJBJnYWi5uVXwE8ankHqRQ9I9GjwL4dfCaaVq0bE7I47qH+/7gA==\" sosNum=\"\" manDownNum=\"\" voiceboxNum=\"\" pin=\"Hho9YrIPHoQXWgRRJVboTdJw2RrhLllIluTz9+vuvyLOGsCRY/E65QVL42PleUTmbwRCNDT43MDoLqJm0jZa2Q==\" lang=\"English\" forwardState=\"Off\" forwardDest=\"\" forwardTime=\"0\" holdRingBackTime=\"3\" callWaitingDisabled=\"0\" trackingActive=\"0\" locRight=\"0\" locatable=\"1\" msgRight=\"0\" sendVcardRight=\"0\" recvVcardRight=\"0\" keepLocalPB=\"0\" vip=\"0\" external=\"0\" BTlocatable=\"1\" BTsensitivity=\"high\" conferenceServerType=\"Global\" conferenceServerURI=\"\" monitoringMode=\"Off\" HAS=\"Unknown\" HSS=\"Unknown\" HRS=\"Unknown\" HCS=\"Unknown\" SRS=\"Unknown\" SCS=\"Unknown\" CDS=\"Unknown\" HBS=\"Unknown\" BTS=\"Unknown\" SWS=\"Unknown\" CUS=\"Unknown\" /></GetPPUserResp>\n";
        
        Was bedeutet \0 vor <GetPPUserResp>?
        
        +3 replies
        
        pq
        
        2013-04-05 14:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        na da haben wir doch den übeltäter. das ist ein nullbyte.
        keine ahnung, warum das dadrin ist, das gehort jedenfalls nicht ins xml.
        $xml =~ s/^\0//;
        
        edit: und mal wieder die bestätigung, dass man richtig debuggen lernen sollte.
        hab da vor einiger zeit mal einen artikel im wiki verfasst: Tipp zum Debugging
        Last edited: 2013-04-05 14:06:35 +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
        
        Muffi
        
        2013-04-05 14:17
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        $xml =~ s/^\0//;
        
        Warum ^ ?
        1 + 1 = 10
        
        cohama
        
        2013-04-05 14:36
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo pg,
        
        vielen vielen Dank für deinen Hinweis. Sobald ich für
        Quote
        $Users
        das Null-Byte aus der Antwort lösche, funktioniert mein Script.
        
        Bye
        
        Gast wer
        
        2013-04-05 13:43
        
        Vermutung:
        Im string sind zeichen, die auf dem terminal unsichtbar sind, aber den xml-parser durcheinander bringen. Meist sind das zeichen, dessen wert < 32 sind.
        
        mach mal:
        
        Code (perl): (dl )
        
        1 2 3
        
        use Data::Dumper; $Data::Dumper::Useqq=1; print Dumper $Users;
        
        und schau ob du gequotete Werte siehst
        Last edited: 2013-04-05 14:04:52 +0200 (CEST)

View all threads created 2013-03-28 13:16.