Opened by cohama at 2011-10-10 13:44
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Hallo zusammen,
leider habe ich nach wievor
XML::Simple nicht richtig nutzen können. Der Fehler lautet:
Can't call method "XMLin" without a package or object reference at line ..
Vielleicht ist jemand so nett und schaut meine Zeilen durch? ;-)
leider habe ich nach wievor
XML::Simple nicht richtig nutzen können. Der Fehler lautet:Can't call method "XMLin" without a package or object reference at line ..
Vielleicht ist jemand so nett und schaut meine Zeilen durch? ;-)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use IO::Socket::SSL; # TCP/IP sockets
use XML::Simple; # basic operation in terms of XML
#####################
# XML Parameter
#####################
my $refXML;
my $tempXML;
my $XMLcontent = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n";
###########################
my $host = '192.168.1.15';
my $port = 12431; # selected-Port
my $uname = "foobar";
my $pw = "foobarPW";
my $protoVer = "31"; # Protocol Version
my $timer = 10;
my $seqid = 911;
#####################################
my $socket = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer);
#######################################
$socket->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
##########################################
$tmpXML = join('',$socket->getlines);
$refXML = $tmpXML->XMLin($XMLcontent, KeepRoot => 1);