Opened by Gast at 2006-09-11 18:39
Hallo,
ich möchte einen Router mit einem Perlscript aufrufen. Mit dem Expect Modul kann ich Username und Passwort eingeben; das klappt. Danach kappt er aber sofort wieder die Verbindung; wie kann ich das denn verhindern?? Er soll noch ein paar Befehle durchgehen, die ich mit send_slow schicken wollte.Oder geht sowas gar nicht????
das Programm :
--------------------
(ab hier wird gekappt und die folgende Zeile nimmt er nicht mehr)
$exp->send_slow(0,"$show\n");
Gruß,
Andreas\n\n
<!--EDIT|renee|1157986530-->
ich möchte einen Router mit einem Perlscript aufrufen. Mit dem Expect Modul kann ich Username und Passwort eingeben; das klappt. Danach kappt er aber sofort wieder die Verbindung; wie kann ich das denn verhindern?? Er soll noch ein paar Befehle durchgehen, die ich mit send_slow schicken wollte.Oder geht sowas gar nicht????
das Programm :
Code: (dl
)
1
2
3
4
5
my $exp=new Expect->spawn("telnet $server $port");
$exp->expect(5,-re=>'sername:') or die "fehler in username\n";
$exp->send_slow(0,"$usr\n");
$exp->expect(5,-re=>'Password:') or die "No password prompt\n";
$exp->send_slow(0,"$password\n");--------------------
(ab hier wird gekappt und die folgende Zeile nimmt er nicht mehr)
$exp->send_slow(0,"$show\n");
Gruß,
Andreas\n\n
<!--EDIT|renee|1157986530-->