XML Input über SSL-Socket senden (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16738[/thread]

XML Input über SSL-Socket senden

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+12 replies
cohama

2011-09-16 16:25
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo,

ich stehe zur Zeit an dem Punkt, dass mein Perl-Skript ein SSL-Socket zum Server geöffnet hat.
Der nächste Schritte ist für mich, wie ich die XML-Nachricht,
z. Bsp.: <GETSystemeName\>, übertrage und die Antwort mittels meines Perl-Skripts wieder ausgebe.
So gesehen, ist diese Anfrage erst einmal nur eine kleine Verständnisfrage zum Einstieg, mit der Bitte mir einen geschickten Weg auf zuzeigen.
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 ################## # parameter declaration ################## 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}); print "XML transfer" close($sock); # Finish the connection print "Finished the Line\n";
modedit Editiert von GwenDragon: Tags entfernt; keine Angst wir überlesen nix.
Last edited: 2011-09-16 16:54:45 +0200 (CEST)
- GwenDragon
  
  2011-09-16 16:55
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  <GETSystemeName\> ist aber kein gültiges XML.
  Du meinst wohl <GETSystemeName/>
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +7 replies
- GwenDragon
  
  2011-09-16 17:09
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Du darfst das Socket nicht schließen sondern musst nach dem Senden wieder daraus lesen.
  Also so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  print "Sandbox Environment\n"; $sock->print(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0}); print "XML transfer done\n"; print <$sock>; print "Answer from server\n"; close($sock); # Finish the connection print "Finished the Line\n";
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - cohama
    
    2011-09-18 20:59
    
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    N'abend,
    
    und vielen Dank für die schnelle Reaktion.
    Doch leider verstehe ich die Lösung nicht richtig, da ich nicht erkennen kann an welcher Stelle ich die XML-Anfrage <GetSystemName\> an den Server schicke?
  - +5 replies
  - GwenDragon
    
    2011-09-19 09:46
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    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
    
    ################################# #!/usr/bin/perl -w use strict; # declare the info before use ################################# # packages ################################ use IO::Socket::SSL; # TCP/IP sockets ################## # parameter declaration ################## 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}); print "XML transfer\n"; print "Finished the Line\n"; print <$sock>; # read answer (=response) from server print "Answer from server\n"; close($sock); # Finish the connection print "Closed connection\n";
    
    Ich weiß ja nicht, wo und wann du die Antwort vom Server brauchst.
    Du fragtest ja nur wie man das macht. ;)
    
    Ansonsten könntest zu Zeile 40 auch so ändern, dass die Antwort in einem Array ist und später ausgeben.
    
    Statt:
    print <$sock>; # read answer (=response) from server
    dann
    my @response = <$sock>; # read answer (=response) from server
    und
    am Programmende:
    
    Code: (dl )
    
    1 2 3
    
    if (scalar @response) { # response array filled? print "$_\n" for @response; # show response }
    
    Last edited: 2011-09-19 09:52:54 +0200 (CEST)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +4 replies
    - cohama
      
      2011-09-19 13:21
      
      User since
      2011-08-16
      102 Artikel
      BenutzerIn
      
      Hallo,
      
      mir geht es darum, dass ich zum Beispiel <GetSystemName\> an den Server schicke und dann die Antwort weiterverabeiten kann.
      
      Soweit ich es bis jetzt gelernt habe, ist diese Zeile dafür dam um eine Verbindung mit dem Server über SSL aufzubauen.
      Wie könnte man die Zeile verändern, so dass ich gleich meinen Befehl mittels SSL übertrage? Oder wie kann ich überprüfen, ob die Verbindung besteht?
      
      Code: (dl )
      
      $sock->print(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
      
      Vielen Dank soweit.
      - +2 replies
      - GwenDragon
        
        2011-09-19 14:46
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Du willst eine universelle Funktion dafür?
        
        Das Gerüst:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        sub Send_Receive_SSL { my $host = shift; my $port = shift; my $message = shift; my $sock = IO::Socket::SSL->new("$host:$port"); $sock->print($message); my @response = <$sock>; close $sock; return @response; } print "Sandbox Environment\n"; my @antworten = Send_Receive_SSL($host, $port, qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0} );
        
        Passt das? Oder soll das Socket offen bleiben?
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        Gast wer
        
        2011-09-19 16:58
        
        ich denke er meint so was:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        $sock->print(qq{ <Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>}); $sock->print(qq{<GetSystemName/>}); # terminate string? $sock->print(qq{\0}); print "ANSWER:" print <$sock>; close($sock);
        
        aber ohne details über das format kann man kaum mehr sagen.
        Last edited: 2011-09-19 17:07:34 +0200 (CEST)
      - GwenDragon
        
        2011-09-19 17:53
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Solange wir nicht wissen wie das Daten-Protokoll aussieht, können wir schlecht helfen.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- cohama
  
  2011-09-20 12:20
  User since
  2011-08-16
  102 Artikel
  BenutzerIn
  Hallo,
  
  vielen Dank für die konstruktiven Hinweise. :-)
  Ich habe mir die Antwort des Servers etwas länger angesehen und festgestellt, dass das Skript jetzt korrekt arbeitet.
  Damit ich diese optimiere, habe ich eine kleine Frage. Ist der folgenden Befehl im IO::Socket::SSL ebenfalls enthalten?
  
  Code: (dl )
  
  $sock->send(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
  
  Sprich ist es möglich das Login einfach zu senden?
  - +2 replies
  - GwenDragon
    
    2011-09-20 12:30
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Was soll denn $sock->send(...) für dich machen?
    
    Wenn du etwas senden willst, musst du $sock->print verwenden.
    Ein Socket wird mit IO::Socket genauso verwendet wie ein Dateihandle.
    Last edited: 2011-09-20 12:35:49 +0200 (CEST)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - topeg
      
      2011-09-20 12:44
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      IO::Socket::SSL Implementiert das Interface von IO::Socket::INET welches das Interface von IO::Socket implementiert, das die in Perl-Socket-Befehle kapselt. Darunter fällt auch send. Soweit ich das sehe ist print ein Alias auf send. Es kann sein, das bei send der PerlIO-Layer umgangen wird. Das habe ich mir nicht näher angeschaut.
      
      EDIT:
      
      gerade in den Code geschaut:
      
      Code (perl): (dl )
      
      sub send { croak("Use of send() not implemented in IO::Socket::SSL; use print/printf/syswrite instead") }
      
      Also muss print genutzt werden
      Last edited: 2011-09-20 13:09:38 +0200 (CEST)

View all threads created 2011-09-16 16:25.