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

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

View full thread XML Input über SSL-Socket senden