Perl 在远程系统上运行命令

Perl 在远程系统上运行命令

我需要在远程系统上运行一系列命令,但 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";

相关内容