Thread XML Input über SSL-Socket senden (11 answers)
Opened by cohama at 2011-09-16 16:25

GwenDragon
 2011-09-19 14:46
#152529 #152529
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
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

View full thread XML Input über SSL-Socket senden