Thread XML Input über SSL-Socket senden
(11 answers)
Opened by cohama at 2011-09-16 16:25
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 |