perl - Perl 期望：对于 ssh 登录，如果一个错误的密码失败，如何尝试另一个密码？

首页 > 解决方案 > Perl 期望：对于 ssh 登录，如果一个错误的密码失败，如何尝试另一个密码？

问题描述

在 Perl 中使用 Expect 自动 ssh 登录时，如果第一个密码失败，我们如何尝试另一个密码？

这样做并不难找到纯粹的 Expect 示例，但在 Perl 中找不到用于 Expect 的示例。

use Expect;

my $bad_pwd = 'pw123';
my $good_pwd = 'pw1234';

my $exp = Expect->spawn("ssh user@example.com") or die;
$exp->expect($timeout,  [ "password: ", sub {$exp->send("$bad_pwd\n"); }]);

提前致谢！

标签： perlexpect.pm

perl - Perl 期望：对于 ssh 登录，如果一个错误的密码失败，如何尝试另一个密码？

问题描述

解决方案

推荐阅读