如何借助Net::SSH实现Perl跨机器目录复制（解决scp密码问题）

既然你只能用Net::SSH模块，没法用那些专门的SCP/FTP类模块，咱们可以绕开直接调用scp的思路——通过SSH通道传输打包后的文件数据流，全程无需交互输入密码。具体步骤是：远程打包目录→通过SSH把打包数据传回来→本地解压，完美解决密码输入的问题。

核心思路 #

利用Net::SSH建立带密码验证的SSH连接，在远程机器上执行tar命令将目标目录打包并输出到标准输出，然后把这个输出数据流捕获后写入本地文件，最后在本地解压还原目录结构。如果是单个文件，甚至可以直接用cat命令传输。

完整代码示例 #

use Net::SSH;
use strict;
use warnings;

# 请根据你的实际环境修改这些配置
my $remote_host = '192.168.1.100';    # 远程机器IP/hostname
my $remote_user = 'your_username';    # 远程登录用户名
my $remote_pass = 'your_password';    # 远程登录密码
my $remote_target = '/var/www/html';  # 要复制的远程目录/文件
my $local_tar = 'remote_backup.tar.gz'; # 本地临时存储的tar包
my $local_dest = './remote_files';    # 最终文件保存的本地目录

# 1. 建立SSH连接（自动处理密码验证，无需交互）
my $ssh = Net::SSH->new(
    host     => $remote_host,
    user     => $remote_user,
    password => $remote_pass,
    debug    => 0, # 调试时可改为1，查看SSH交互细节
) or die "无法连接远程机器: $!";

# 2. 远程执行打包/读取命令（区分目录和单个文件）
my $remote_cmd;
if (-d $remote_target) {
    # 处理目录：进入目标目录，打包所有内容到标准输出
    $remote_cmd = sprintf("cd %s && tar -czf - .", quotemeta($remote_target));
} else {
    # 处理单个文件：直接输出文件内容
    $remote_cmd = sprintf("cat %s", quotemeta($remote_target));
}

my ($stdout, $stderr, $exit_code) = $ssh->exec($remote_cmd);

# 检查远程命令执行是否成功
if ($exit_code != 0) {
    die "远程操作失败: $stderr";
}

# 3. 将远程传回的数据写入本地文件
open my $fh, '>', $local_tar or die "无法创建本地文件: $!";
print $fh $stdout;
close $fh;

# 4. 本地还原文件/目录
if (-d $remote_target) {
    # 目录场景：解压tar包到目标目录
    mkdir $local_dest unless -d $local_dest;
    my $untar_cmd = sprintf("tar -xzf %s -C %s", quotemeta($local_tar), quotemeta($local_dest));
    system($untar_cmd) == 0 or die "本地解压失败: $?";
    
    # 可选：删除临时tar包
    unlink $local_tar or warn "无法删除临时tar包: $!";
} else {
    # 单个文件场景：重命名临时文件到目标目录
    my $filename = (split('/', $remote_target))[-1];
    mkdir $local_dest unless -d $local_dest;
    rename $local_tar, "$local_dest/$filename" or die "重命名文件失败: $!";
}

print "文件复制完成！已保存到: $local_dest\n";

注意事项 #

• 特殊字符处理：用quotemeta转义路径中的特殊字符（比如空格、&、*等），避免命令执行出错。
• 大文件/目录：如果要传输超大文件，这种一次性获取stdout的方式可能会占用较多内存，不过对于大多数日常场景已经足够；如果需要优化，可以研究Net::SSH的底层交互方式分块读取。
• 依赖检查：确保远程机器和本地机器都安装了tar命令（处理目录时需要）。
• 安全性：代码里直接写密码不太安全，后续如果条件允许，建议配置SSH密钥登录，这样连密码都不用写在代码里了。

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