Net::Telnet Cisco Terminalserver Problem - #105070 (Netzwerkprogrammierung und Netzwerke mit Perl)

Gast Gast

2008-01-23 17:49

Am besten, würde ich empfehlen die Rückmeldungen nach jedem Command überprüffen lassen.
Bei mir funktioniert solches mit IO::Socket;
Damit kannst du alles aufbauen.

Ein Beispiel:

Code (perl): (dl )

my $sock = IO::Socket::INET->new(PeerAddr => $slav, PeerPort => $port, Proto => 'tcp');
$_=<$sock>;
return if ($_ !~ /^010/);

        print $sock "user $user\r\n";
        $_=<$sock>;
        return if ($_ !~ /^305/);

        print $sock "pass $pass\r\n";
        $_=<$sock>;
        return if ($_ !~ /^301/);

        print $sock "commando beispiel\r\n";
        $_=<$sock>;
        return if ($_ !~ /^121/);