我需要在远程系统上运行一系列命令,但 perl 保持登录时遇到问题。我“不能”使用 ssh 或 telnet 命令,因为它是登录的服务帐户并且没有密码。我正在下面尝试这个,但是程序 ssh 进入系统并且直到我 ctl+d 退出后才退出。
system("ssh -qtt $server sudo cp /opt/uc4sand/bin/*.kstr /tmp/sand.kstr; sudo service uc4sand stop");
答案1
问题解决了:
my $ssh = Net::SSH::Perl->new(
$server,
user => 'user';
ssh_arges => {
identity_files => [ '/home/account/.ssh/id_rsa ' ]
debug => 1,
}
) or die "could not open connection $server";