关于使用 perl 运行多个 ssh 命令

Question

我有点卡在这里我想 ssh 到一台机器，然后运行大约 3 个命令，这些命令基本上是设置命令，然后我想用那台机器的 env 变量返回我的机器

喜欢

setup1
setup2
setup3
env > envtext.txt.
return back 

所有这些我必须在 perl 中完成

我尝试了类似的命令 system("ssh @machine command1 && command 2") 不起作用

有类似的吗？

system("ssh @machine command1 -cmd command 2 -cmd command 3")

如果不是最好的方法是什么 就像制作一个 shell 脚本然后调用它，或者我可以在 perl 本身中完成它而不需要任何 shell 脚本？

代码

#!/usr/bin/perl -w

use Net::SSH::Perl;


my $host = "address";
my $user = "name";
my $password = "password";

--建立一个新的连接

 my $ssh = Net::SSH::Perl->new($host,
    debug=>0,

    identity_files => ['path to key'],
           options=> ["StrictHostKeyChecking  no"]
           #interactive => yes,
    );

--认证

$ssh->login($user,$password);

--执行命令

my($stdout, $stderr, $exit) = $ssh->cmd("env");

print $stdout;`

它给出的错误是 ssh.pl 第 25 行的 Permission denied

谢谢

Answer 1

我认为您的问题是关于 SSH 到 single 远程主机并在那里运行 multiple 命令。如果这是真的，那么您需要将多个命令打包到远程 shell 可以执行的单个命令行中。最简单的方法是使用system 的列表形式，并将命令行作为单个参数传递：

system "ssh", "machine", "setup1; setup2; setup3";

关于您问题的第二部分：您想从远程端取回数据。为此，您将希望您的程序读取 SSH 的输出，而不是使用 system。为此，您可以使用：

open my $FH, "-|", "ssh", "machine", "setup1; setup2; setup3; env";
my @lines_from_ssh = <$FH>;
close $FH;

如果您还需要将输入发送到远程端，请查看 IPC::Open2。如果您需要同时捕获 stdout 和 stderr，请参阅 IPC::Open3。

Answer 2

你可以做什么：

system("ssh $_ command1 -cmd command 2 -cmd command 3") for @machines;

另一个纯 Perl 解决方案是使用Net::OpenSSH