Frage zu telnet - #102788 (Perl/CGI)

grey1987

2007-11-22 15:28

User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]

na kommt schon,
wie kann ich mir dieses blöde "ACK" anzeigen lassen?
oder ist das so wie ich das gemacht hab total falsch.
ich hab mein prog ein bisschen erweitert, aber die Meldung ist
"nicht verbunden!"

Code (perl): (dl )

use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'die', Port=>1810);
$telnet->open('PC110197');
$telnet->errmode(sub{die@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE\n');
print @ausg;
if (@ausg eq "ACK")
{
  print "verbunden!";
}
else
{
  print "nicht verbunden!";
}