IO::Socket::SSL anstatt IO::Socket::INET (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]16672[/thread]

IO::Socket::SSL anstatt IO::Socket::INET

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+11 replies
cohama

2011-08-30 12:04
User since
2011-08-16
102 Artikel
BenutzerIn
Hallo,

ich bin mir sicher, dass ich hier ein paar Leute finde die mir kurz bei meinem Perl-Skript helfen können.
Ich stehe vor der Herausforderung mein funktionierendes Perl-Skript mit dem Modul INET auf das Modul SSL umzustellen.
Folgendene Zeilen würde ich gern mit der IO::Socket::SSL nutzen.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

# SSL sandbox #!/usr/bin/perl -w ################################ use strict; use IO::Socket; # user IO::Socket::SSL; #################################### # parameter my $host = '192.168.178.103'; my $uname = "foobar"; my $pw = "foobarPW"; my $port = 12621; unless ($sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port,Proto => 'tcp', Timeout => 5)) $sock->print("<Open seq=\"150\" protocolVersion=\"31\" username=\"$uname\" password=\"$pw\"/>\0");
Vielen Dank für die Hilfe im Voraus.
- jan
  
  2011-08-30 12:21
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Was hindert dich daran? Bekommst Du Fehlermeldungen, wenn Du es umbaust? Wenn ja: welche?
- +9 replies
- GwenDragon
  
  2011-08-30 15:00
  User since
  2005-01-17
  14774 Artikel
  Admin1
  IO::Socket::SSL ist auch nur über IO::Socket::INET drüber gesetzt.
  
  Code (perl): (dl )
  
  $sock = IO::Socket::SSL->new("$host:$port");
  
  //EDIT:
  Und um die grässliche Escaperei zu innerhalb Zeichenketten mit doppelten Anführungszeichen vermeiden kannst du auch qq verwenden.
  
  Code (perl): (dl )
  
  $sock->print(qq{<Open seq="150" protocolVersion="31" username="$uname" password="$pw"/>\0});
  
  //EDIT2: Den Rest kannst du dir doch denken oder wo brauchst du Hilfe?
  Last edited: 2011-08-30 15:25:07 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - cohama
    
    2011-10-10 14:52
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo,
    
    vielen Dank für den Hinweis. Soweit funktioniert es richtig gut.
    
    Code: (dl )
    
    $sock = IO::Socket::SSL->new("$host:$port");
    
    Code: (dl )
    
    $sock->print(qq{<Open seq="150" protocolVersion="31" username="$uname" password="$pw"/>\0});
    
    Jetzt hätte ich es gern, dass ich für den Socket ein Timeout-Parameter mit übergebe.
    
    Eine zweite Bitte für mein "Projekt" wäre, dass ich gern die Antwort des Servers in eine Variable speichern möchte.
    
    Code: (dl )
    
    $tmpParameter=$sock->receive(qq{Open seq="150" protocolVersion="31" username="$uname" password="$pw"/>\0})
    
    Diese Nachfrage überschneidet eventuell sich etwas mit einer anderen Hinweis-Nachfrage von mir.
    - +7 replies
    - GwenDragon
      
      2011-10-10 15:04
      
      User since
      2005-01-17
      14774 Artikel
      Admin1
      
      Das Timeout setzt du genauso wie in IO::SOcket::INET.
      
      Wenn du die Antwort des Servers lesen willst, zum Beispiel so:
      
      Code (perl): (dl )
      
      my ($buf) = $sock->getlines;
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +6 replies
      - cohama
        
        2011-10-11 09:09
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo GwenDragon,
        
        vielen Dank für deine Antwort,wenn ich dich richtig verstanden habe, editiere ich die folgenden Zeilen in etwa so?
        
        Code: (dl )
        
        1 2 3 4
        
        my $host = '192.168.10.15'; # Server-IP my $port = 12621; # Server Port my $timer = 2; # Timer for Socket my $sock = IO::Socket::SSL->new("$host:$port",Timeout => $timer); # SSL-Socket
        
        Richtig?
        
        +5 replies
        
        GwenDragon
        
        2011-10-11 09:23
        
        User since
        2005-01-17
        14774 Artikel
        Admin1
        
        Schau mal, die Parameter bei new sind ja von IO::Socket::INET geerbt.
        http://search.cpan.org/perldoc?IO::Socket::INET#CO...
        
        Ich würde die Parameter für new so schreiben:
        
        Code: (dl )
        
        1 2 3
        
        PeerAddr => $host, PeerPort => $port, Timeout => $timer
        
        und wenn ich so die Dokumentaion einsehe, kannst du auch wohl schreiben:
        
        Code: (dl )
        
        1 2
        
        PeerAddr => "$host:$port", Timeout => $timer
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        cohama
        
        2011-10-11 11:12
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo GwenDragon,
        
        ich habe gleich deinen Hinweis umsetzen wollen. Doch leider sagt der Perl-Compiler, dass er dann die Funktion print nicht mehr auswerten kann.
        
        ErrorInfo: Can't call method "print" on an undefined value at .../FileName.perl
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        my $host = '192.168.1.15'; my $port = 12621; my $seqid = "11"; my $uname = "foobar"; my $pw = "FoobarPW"; my $protoVer = 5; my $timer = 10; my $sock = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer); $sock->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
        
        Eventuell siehst du oder jemand anderes den Grund für die Fehlerfehler.
        
        +3 replies
        
        Linuxer
        
        2011-10-11 11:41
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Hi,
        
        $sock scheint keinen definierten Wert zu enthalten.
        Das legt den Schluß nahe, dass das Erzeugen eines neuen IO::Socket::SSL Objekts fehlgeschlagen ist.
        
        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-11 13:27
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo Linuxer,
        
        hab Dank für deinen Hinweis. Nachdem ich den Port geändert habe, konnte ich das Skript gleich wieder fehlerfrei nutzen.
        Die Frage, die sich mir daraus aufdrängt. Wie kann ich die ganzen anderen Objekte wieder löschen, damit ich den Standard-Port wieder einsetzen kann?
        
        Linuxer
        
        2011-10-11 14:28
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Das kann ich nicht beurteilen. Zumal ich die Frage nicht so recht verstehe.
        Was haben andere Objekte damit zu tun, ob Du den Standartport einsetzt oder nicht?
        
        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-08-30 12:04.