Thread IO::Socket::SSL anstatt IO::Socket::INET (10 answers)
Opened by cohama at 2011-08-30 12:04

cohama
 2011-08-30 12:04
#151957 #151957
User since
2011-08-16
102 Artikel
BenutzerIn

user image
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 CPAN: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.

View full thread IO::Socket::SSL anstatt IO::Socket::INET