Frage zu telnet - #102878 (Perl/CGI)

grey1987

2007-11-23 10:53

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

Code (perl): (dl )

use Net::Telnet;
use Strict;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
$fh = $obj->dump_log($filename);
$telnet->open('PC110197');
$telnet->errmode(sub{return@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE');
print @ausg;

so sieht der code aus.
nachdem ich dieses

Code (perl): (dl )

$fh = $obj->dump_log($filename);

eigegeben hab, kam die meldung:

Code: (dl )

Can't call method "dump_log" on an undefined value at prog.pl line 4.

davor kam keine meldung: es kam einfach nach 10sek wieder die zeile wo ich die kommandos eingebe.
das ist aber wegen dem server so, weil wenn man mit ihm verbunden ist und 10 sekunden nichts macht, dann macht der ein timeout.