如何在Perl中使用Net::SSH捕获远程命令输出？

针对你的需求，这里提供两种简洁的方法，用Debian预装的Net::SSH模块实现远程执行ls -1并将输出捕获到@list数组中：

方法1：使用ssh_cmd（最简单的方式） #

ssh_cmd会直接返回远程命令的标准输出，适合快速捕获结果：

use Net::SSH qw(ssh_cmd);

# 配置远程主机和命令
my $remote = 'user@hostname';
my $cmd = 'ls -1';

# 执行命令并获取输出
my $output = ssh_cmd($remote, $cmd);

# 将输出按行拆分到数组，去除换行符
my @list = split /\n/, $output;

# 验证结果（可选）
foreach my $file (@list) {
    print "文件：$file\n";
}

方法2：使用sshopen2（更灵活，适合处理大输出） #

如果需要处理大量输出或后续交互，可以用sshopen2获取输出句柄：

use Net::SSH qw(sshopen2);

my $remote = 'user@hostname';
my $cmd = 'ls -1';
my ($reader, $writer);

# 建立连接并获取读写句柄
sshopen2($remote, $reader, $writer, $cmd);

# 读取所有输出行到数组
my @list = <$reader>;

# 关闭句柄
close $reader;
close $writer;

# 去除每行末尾的换行符
chomp @list;

# 验证结果（可选）
foreach my $file (@list) {
    print "文件：$file\n";
}

注意事项 #

• 如果远程主机需要密码验证，Net::SSH会自动弹出输入提示；若使用密钥登录，确保本地ssh密钥已配置到远程主机。
• ssh和issh函数会直接将输出打印到终端，不适合捕获结果；sshopen3可同时获取标准输出和错误输出，若需要处理错误信息可参考该函数。

内容的提问来源于stack exchange，提问作者happybeing