我正在编写一个Perl脚本,需要使用scp在计算机之间传输文件.我知道公钥认证,但我需要脚本完全自动化,因此在脚本运行之前我无法访问机器来设置密钥.
有没有办法将密码从Perl脚本传递给scp或从perl脚本中设置密钥？
此脚本将作为构建脚本的一部分运行,该脚本还会重新映像运行脚本所需的硬盘驱动器.因此,每次构建项目时,我都无法在那里设置密钥.
解决方法
您可以使用Perl
Expect模块,请参阅
an example at Well House consultants’ forum.
它的文档有一个telnet example,可以很容易地更改为SSH.
Net::SSH::Expect是另一个Perl模块,可以完全按照您的要求进行操作.不过,我之前没有使用过这个.