使用perl的net::telnet模块如何解决两种提示符？

zljjg1234

我使用perl的net::telnet来登陆交换机时，如何解决我输入的密码错误的问题呢？
如果我输入密码正确，那么交换机的提示符将是switch>;，但是如果我输入的密码不正确，提示符将是又提示输入用户名 login：
举例：
         $t->;open('x.x.x.x');
             $t->;waitfor(Match=>;'/login:/');
             $t->;print("xxx";
             $t->;waitfor(Match=>;'/passwd:/');
             $t->;print("xxx";
             $t->;waitfor(Match=>;'/switch>;/');
             $t->;print("show version";

      当密码输入正确时，上面的程序可以执行，但是当密码输入错误时，系统会提示：
passwd incorrect. login:
请问如何处理这种情况。

apile

不要用waitfor...看看有没有其他的....
如果没有..这种情形一定有人碰过..
仔细看看他的文档里面有没有提其他的method

我用expect可以很简单的解决这个问题...
expect {
  "passwd incorrect" { xxx}
  "switch>;"  { xxxx}
}

Net::Telnet没用过...