Opened by cohama at 2011-08-30 12:04
User since
2011-08-16
102 Artikel
BenutzerIn
2011-08-16
102 Artikel
BenutzerIn
Hallo GwenDragon,
ich habe gleich deinen Hinweis umsetzen wollen. Doch leider sagt der Perl-Compiler, dass er dann die Funktion print nicht mehr auswerten kann.
ErrorInfo: Can't call method "print" on an undefined value at .../FileName.perl
Eventuell siehst du oder jemand anderes den Grund für die Fehlerfehler.
ich habe gleich deinen Hinweis umsetzen wollen. Doch leider sagt der Perl-Compiler, dass er dann die Funktion print nicht mehr auswerten kann.
ErrorInfo: Can't call method "print" on an undefined value at .../FileName.perl
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $host = '192.168.1.15';
my $port = 12621;
my $seqid = "11";
my $uname = "foobar";
my $pw = "FoobarPW";
my $protoVer = 5;
my $timer = 10;
my $sock = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer);
$sock->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
Eventuell siehst du oder jemand anderes den Grund für die Fehlerfehler.