perl - 净::Telnet Error Handling

Question

我尝试在失败时打印“错误IP USER PASS Failed!”。

当我使用脚本时

    use Net::Telnet ();
my $t = new Net::Telnet Timeout => 30,
Prompt => '/[\$#%:><][\s\b]+$/';
$t->open($ARGV[0]);
my $user = $ARGV[1];
my $pass = $ARGV[2];

        print "Logging In...\n";
        print "Sending Username....\n";
        $t->print($user);
                $t->waitfor('/[:>%\$#]/');
        print "Sending Password....\n";
        $t->print($pass);
                $t->waitfor('/[:>%\$#]/');

 if ($t->errmsg){
               print "errmsg: " . $t->errmsg . "\n";
        } else {
               print"success\n";
        }

问题:

我知道IP和用户名:admin和admin正在工作。

root@localhost:~/tel# perl t2.pl *.*.*.* admin admin
Logging In...
Sending Username....
Sending Password....
success

现在使用非工作用户并通过，我得到相同的“成功”

root@localhost:~/tel# perl t2.pl 36.85.134.191 admin admi1
Logging In...
Sending Username....
Sending Password....
success

如果if陈述我做错了什么，那是无法正常运作。

Answer 1

您可能应该启用调试功能，但是我想您对passwort结果的期望不仅与提示(例如$或#)匹配，而且还与密码错误(:)时得到的用户名提示匹配。