SSL Response in XML::Simple (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16793[/thread]

SSL Response in XML::Simple

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+15 replies
cohama

2011-10-10 13:44
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo,

ich habe eine Frage bzgl. XML::Simple.
In meinem Szenario geht es darum, dass ich eine Anfrage an einen Server sende und die Antwort, welche im XML ist, mit XML::Simple weiter verarbeiten muss.

Die Antwort des Server hat folgende Darstellung:

<OpenResp ommStbState="None" ommVersion="OpenMobility Manager SIP-DECT" EULAConfirm="1" ommPlatform="rfp" haveLicensing="1" haveLocating="1" haveAutoDB="1" haveLDAP="1"
haveDECTRegDomain="1" haveDigitTreatment="1" haveExternalUserData="1" haveFACs="1" haveEnrolmentRFP="1" haveEnrolmentPP="1" haveIMA="1" havePagingAreas="1" haveVLAN="1" haveWLAN="1"><permission>AllCnfRead</permission><permission>AllCnfWrite</permission><permission>Messaging</permission><permission>InfoMessaging</permission><permission>Monitoring</permission></OpenResp>

Und genau diese Antwort möchte ich insgesamt in einer Variable speichern und selektiv auswerten.
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

################################# #!/usr/bin/perl -w use strict; # declare the info before use ################################# # packages ################################ use IO::Socket::SSL; # TCP/IP sockets use XML::simple; ################## # parameter declaration ################## my $refXML; my $tempXML; my $host = '192.168.1.15'; my $port = 12431; # selected-Port my $uname = "foobar"; my $pw = "foobarPW"; my $protoVer = "31"; # Protocol Version my $sock = IO::Socket::SSL->new("$host:$port"); ######################### # main procedures # output ########################## ################################## # commands system("clear"); # refresh the console ############################### print "Sandbox Environment\n"; $sock->print(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}); $tmpXML=print<$sock>; # Zwischenspeichern $refXML=XMLin($tmpXML); # in Variable speichern exit (0);
- +14 replies
- pq
  
  2011-10-10 14:32
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du führst in zeile 37 ein print aus. print hat in der regel einen rückgabewert von 1. diesen speicherst du in $tmpXML. das ist bestimmt so nicht gewollt.
  print bedeutet, dass etwas auf stdout ausgegeben wird, also in der regel auf dein terminal.
  du möchtest aber doch den rückgabewert in einer variable speichern und nicht ausgeben.
  my $tmpXML = join '', <$sock>;
  
  (die vorausdeklaration finde ich unnötig, daher habe ich das my() hier dazugepackt.)
  
  wieso benutzt du eigentlich IO::Socket::SSL? funktioniert LWP::UserAgent hier nicht?
  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
  - +13 replies
  - cohama
    
    2011-10-11 08:47
    
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Guten Morgen,
    
    vielen Dank für den Hinweis, ich werde es so schnell wie möglich ausprobieren.
    Zu der Frage bgl. IO::Socket:SSL.
    Meinerseits liegt es einfach daran, dass ich im Moment anfange mich mit Perl und Netzwerk-Skripten zu befassen.
    Welche Vorteile habe ich von LWP::UserAgent?
    Im Prinzip geht es mir, in diesem "Projekt", darum, eine SSL-Verbindung zu meinem Rechner auf zubauen und darüber ein paar XML-Daten aus zutauschen.
    - +12 replies
    - pq
      
      2011-10-11 10:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      hab mich verguckt, es geht ja gar nicht um HTTP.
      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
        
        2011-10-12 14:42
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo,
        
        ich habe nun mein Skript bereits ein Stück weiter voranbekommen. Leider weiss ich immer noch nicht, wie ich das Modul XML::Simple richtig benutze um eine XML-Variable einzulesen.
        Hier kurz der wesentliche Ausschnitt:
        
        Code: (dl )
        
        1 2 3 4 5
        
        my tmpXML; my refXML; $socket->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}); # Send the login data ($tmpXML) = $socket->getlines; # Read the Server Response $refXML = XMLin(tmpXML);
        
        Der Perl-Compiler gibt aus, dass er in dieser Form keine XML-Variable in XMLin verarbeiten kann.
        Also, wie benutze ich die Funktion richtig?
        
        +10 replies
        
        Jejerod
        
        2011-10-12 17:20
        
        User since
        2011-10-12
        16 Artikel
        BenutzerIn
        
        2011-10-12T12:42:56 cohama
        Also, wie benutze ich die Funktion richtig?
        
        Du gibst an XMLin entweder ein Dateiname oder gültiges XML als String. Da XML::Simple bei fehlerhaften XML aussteigt, solltest du eval nutzen. Im Codeschnipsel oben soll es wohl auch eher $tmpXML heißen? Stell sicher das $tmpXML auch das vollständige XML enthält.
        
        Code: (dl )
        
        1 2
        
        eval { $refXML = XMLin($tmpXML, KeepRoot => 1) }; die() if ($@);
        
        Last edited: 2011-10-12 17:25:11 +0200 (CEST)
        
        +9 replies
        
        cohama
        
        2011-10-13 15:22
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo,
        
        ich habe den Trick mit eval ausprobiert, leider ohne Erfolg.
        Es ergab sich diese Fehlermeldung:
        
        not well-formed (invalid token) at line 1, column 1, byte 2 at /usr/lib/perl5/XML/Parser.pm line 187
        ...propagated at Sandbox3.pl line 55.
        
        +8 replies
        
        Jejerod
        
        2011-10-13 16:18
        
        User since
        2011-10-12
        16 Artikel
        BenutzerIn
        
        Ich vermute stark
        
        Code (perl): (dl )
        
        ($tmpXML) = $socket->getlines;
        
        Bekommt nur die erste Zeile wenn es eine multi-line Antwort vom Server ist. Das ist dann natürlich kein "well-formed" XML. Mal ausgeben lassen.
        
        Code (perl): (dl )
        
        $tmpXML = join(//,$socket->getlines);
        
        macht vielleicht eher was du willst.
        
        +7 replies
        
        pq
        
        2011-10-13 19:22
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also join // ist sicher nicht zu empfehlen. eher join ''
        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
        
        +6 replies
        
        Jejerod
        
        2011-10-13 19:30
        
        User since
        2011-10-12
        16 Artikel
        BenutzerIn
        
        ups, richtig. ich splitte öfter als ich joine :)
        
        +5 replies
        
        cohama
        
        2011-10-17 11:58
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo zusammen,
        
        leider habe ich nach wievor XML::Simple nicht richtig nutzen können. Der Fehler lautet:
        Can't call method "XMLin" without a package or object reference at line ..
        Vielleicht ist jemand so nett und schaut meine Zeilen durch? ;-)
        
        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
        
        use IO::Socket::SSL; # TCP/IP sockets use XML::Simple; # basic operation in terms of XML ##################### # XML Parameter ##################### my $refXML; my $tempXML; my $XMLcontent = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n"; ########################### my $host = '192.168.1.15'; my $port = 12431; # selected-Port my $uname = "foobar"; my $pw = "foobarPW"; my $protoVer = "31"; # Protocol Version my $timer = 10; my $seqid = 911; ##################################### my $socket = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer); ####################################### $socket->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}); ########################################## $tmpXML = join('',$socket->getlines); $refXML = $tmpXML->XMLin($XMLcontent, KeepRoot => 1);
        
        Linuxer
        
        2011-10-17 12:31
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        $tmpXML ist ein einfacher Skalar, der einen String enthält (Zeile 22).
        Da steckt kein Objekt drin. Deshalb funktioniert es nicht, eine Objekt-Methode für diesen Skalar aufzurufen (Zeile 23).
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +3 replies
        
        Linuxer
        
        2011-10-17 12:35
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Sollte es nicht eher sowas sein (zusammengesetzt aus den Synopsis-Angaben von XML::Simple und Deinem Code):
        
        Code (perl): (dl )
        
        1 2
        
        $tmpXML = join('',$socket->getlines); $refXML = XMLin($tmpXML, KeepRoot => 1);
        
        Oder objektorientiert:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my $xs = XML::Simple->new(); $tmpXML = join('',$socket->getlines); $refXML = $xs->XMLin($tmpXML, KeepRoot => 1);
        
        Alles nur schnell "geraten" und getippt; habe bisher erfolgreich Bögen um tiefergehende XML-Verarbeitung schlagen können ;-)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        cohama
        
        2011-10-17 13:58
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo zusammen,
        
        nachdem ich die Änderung vorgenommen habe, ist der Perl-Compiler der Meinung, dass das XML nicht gerade schick ist.
        
        not well-formed (invalid token) at line 1, column 1, byte 2 at /usr/lib/perl5/XML/Parser.pm line 187
        
        Hier kurz die Änderungen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        ################################### # Parameter my $tmpXML = XML::Simple->new(); ################################### # programm $tmpXML = join('',$socket->getlines); $refXML = XMLin($tmpXML, KeepRoot => 1);
        
        Hat jemand noch ein Tipp bzw. eine Lösung?
        
        Linuxer
        
        2011-10-17 14:20
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Naja, das XML sauber formatieren? Ohne Daten ist das schwer zu beurteilen.
        Das Problem liegt meiner Meinung nach jetzt in den XML-Daten, nicht im Skript.
        Kontrolliere und evtl. korrigiere die Daten, die in $tmpXML enthalten sind...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2011-10-10 13:44.