perl - 避免在命令行输入密码(sudo)

Question

use Net::SSH::Any;
use Data::Dumper;

# my $ssh2 = Net::SSH::Any->new(..);

my $cmd = "sudo -u postgres -p password perl -e 'print `whoami`'";
print Dumper $ssh2->capture({timeout => 15}, $cmd);

我想在远程主机上使用 sudo，但不喜欢在上面的代码中在命令行上输入普通密码的想法。还有其他选择吗？

Answer 1

如果远程计算机上安装的sudo不是很旧，则可以通过stdin传递密码:

print $ssh2->capture({stdin_data => "$sudo_passwd\n"},
                     'sudo', '-Sk',
                     '-p', '',
                     '--',
                     @cmd);