如何用Perl读取文件每行并实现远程SSH主机登录操作

嘿，这个需求其实挺常见的，我给你捋几个具体的实现思路，从基础脚本到更健壮的版本都有，你可以根据自己的场景选：

这个方案不需要额外安装Perl模块，直接借助系统自带的ssh命令就能实现，适合简单的批量执行场景。

#!/usr/bin/perl
use strict;
use warnings;

# 替换成你的主机文件实际路径
my $host_file = '/path/to/your/hosts.txt';

# 打开主机文件，失败则终止脚本并提示错误
open my $fh, '<', $host_file or die "无法打开主机文件: $!";

# 逐行遍历文件内容
while (my $host = <$fh>) {
    # 去掉行尾的换行符，同时跳过空行
    chomp $host;
    next if $host =~ /^\s*$/;

    print "===== 正在连接主机: $host =====\n";

    # 方式1：非交互式批量执行远程命令
    # 把需要执行的命令用单引号包裹，多个命令用分号分隔
    my $remote_cmds = 'uptime; df -h; whoami';
    system("ssh $host '$remote_cmds'");

    # 方式2：进入交互式SSH会话（适合需要手动操作的场景）
    # 执行后会进入远程主机的shell，退出后脚本继续处理下一个主机
    # system("ssh $host");

    # 检查SSH执行的状态，输出错误信息
    if ($? == -1) {
        print "连接$host失败: 无法启动SSH进程\n";
    } elsif ($? & 127) {
        printf "连接$host失败: SSH进程收到信号 %d\n", ($? & 127);
    } else {
        printf "主机$host操作完成，退出码: %d\n", ($? >> 8);
    }
}

close $fh;

基础版注意点： #

• 一定要开启strict和warnings，能帮你避免很多低级语法错误
• chomp和跳过空行的逻辑很关键，不然可能会连接到带换行符的无效主机名
• 非交互式命令要用单引号包裹，防止本地shell解析远程命令里的特殊字符（比如$、*）

如果需要更灵活的控制（比如捕获远程输出、处理复杂的错误场景、批量执行后分析结果），推荐使用Perl的Net::OpenSSH模块，它对SSH操作的封装更完善。

首先需要安装模块：

# 用cpanm安装
cpanm Net::OpenSSH
# 或者用系统包管理器（以Debian/Ubuntu为例）
sudo apt install libnet-openssh-perl

示例脚本：

#!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSSH;

my $host_file = '/path/to/your/hosts.txt';

open my $fh, '<', $host_file or die "无法打开主机文件: $!";

while (my $host = <$fh>) {
    chomp $host;
    next if $host =~ /^\s*$/;

    print "===== 正在连接主机: $host =====\n";

    # 建立SSH连接，支持密钥登录（推荐）或密码登录（不建议明文写脚本）
    my $ssh = Net::OpenSSH->new(
        $host,
        timeout => 10,  # 设置连接超时时间，避免卡住
        # 如果需要指定用户名或密码（不推荐明文密码，可改用环境变量）
        # user => 'your_username',
        # password => $ENV{SSH_PASSWORD}
    );

    # 检查连接是否成功
    if ($ssh->error) {
        print "连接$host失败: " . $ssh->error . "\n";
        next;
    }

    # 执行远程命令，捕获标准输出和错误输出
    my ($stdout, $stderr) = $ssh->capture2('uptime; df -h');
    if ($ssh->error) {
        print "在$host执行命令失败: " . $ssh->error . "\n";
    } else {
        print "--- $host 标准输出 ---\n$stdout\n";
        print "--- $host 标准错误 ---\n$stderr\n" if $stderr;
    }

    # 如果需要执行sudo命令，建议提前在远程主机配置免密sudo
    # $ssh->system('sudo apt update && sudo apt upgrade -y');
}

close $fh;

进阶版优势： #

• 可以直接捕获远程命令的输出，方便后续分析或保存到文件
• 错误处理更细致，能明确区分是连接失败还是命令执行失败
• 支持超时设置，避免单个主机卡住整个脚本
• 推荐使用密钥登录（提前把本地公钥放到远程主机的~/.ssh/authorized_keys），比密码登录更安全且无需手动输入

• 跳过注释行：如果你的主机文件有以#开头的注释，可以加一行next if $host =~ /^\s*#/;跳过这些行
• 并发执行：如果主机数量很多，串行执行效率太低，可以搭配Parallel::ForkManager模块实现多进程并发连接，大幅提升速度
• 免密sudo：如果需要执行sudo命令，最好在远程主机的/etc/sudoers里配置目标命令的免密权限，避免脚本卡住等待密码输入

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