如何使用 Net::OpenSSH 更改远程计算机上的 root 密码？

Question

我想使用 Perl 脚本更改远程 Linux 计算机上的 root 密码。我的第一次尝试是以下代码：

use Net::OpenSSH;
my $ssh = Net::OpenSSH->new(
    "linuxpc",
    user                  => "root",
    password              => "root",
    master_stderr_discard => 1
);
my @changepass = $ssh->capture(
    {
        stderr_discard => 1,
        stdin_data     => "newpw123"
    },
    "passwd"
);
print "Done\n";

但不幸的是它不起作用。有人可以帮我吗？

Answer 1

Net::OpenSSH 发行版包含一个示例脚本，它完全可以满足您的需求！

change_passwd.pl

Answer 2

不要丢弃错误，而是使用 capture2：

（$输出，$错误输出）=
$ssh->capture2(\%opts, @cmd)

捕获由 @cmd 发送到 stdout 和 stderr 的输出

远程机器。

引用自 CPAN

另外，可能不是相关，但也许使用 passwd 的完整路径。我不确定 capture 函数是否添加了换行符，但它可能值得尝试：

my @pwd = ("newpw123\n", "newpw123\n");
($output, $errput) = $ssh->capture2( { stdin_data = \@pwd }, "/bin/passwd" );

ETA：当然，检查错误以查看发生了什么。在调试时丢弃错误是不好的做法 (tm)。

ETA2：尝试对 passwd 使用 --stdin 选项，看看是否有帮助。例如：

$ssh->capture2( { stdin_data = \@pwd }, "/bin/passwd --stdin" );