perl - 将 SSH 命令的输出写入文件

Question

使用 Net::OpenSSH 模块，如何连接到主机并随后将命令的输出捕获/写入到已创建的文件中？

这是我的命令：

ps -ef | grep jboss | grep java

到目前为止，我有以下 perl 脚本..

open PATH,">","./report/archive/rpet-$now/path.txt" or die "Unable to create file: $!";
    my $ssh = Net::OpenSSH->new(
                $host,
                user=>$username
                passwd=>$password
    );
    print PATH "SSH Output Would Go Here";
close PATH;

那么运行命令并打印其输出的最佳方式是什么？提前致谢！

Answer 1

你看过文档（https://metacpan.org/module/Net::OpenSSH）吗？它在大纲中。

print PATH $ssh->capture('command');

虽然这也会打印任何错误情况。Capture 在标量和列表上下文中都有效。