linux - 目标重新启动时用于 telnet 和 re-telnet 的 Perl 脚本

Question

我需要编写一个在 Windows 上运行的 Perl 脚本，以通过远程登录到 Linux 机器来不断监视 Linux 机器下的日志文件以寻找模式。但问题是，Linux 机器非常频繁地重新启动(通过一些其他脚本)，Perl 脚本应该在可用时重新远程登录到 Linux 机器(可 ping)。

要做到这一点，我是否应该在响应 ping 时继续 ping Linux 机器 IP 和 telnet 进入机器？或者还有其他方法吗？非常感谢。

Answer 1

如果这是您真正想要的，那么在循环中重试连接可能是最简单的。

my $telnet = Net::Telnet->new( ... )

while (1) {
    if ( $telnet->open(...) ) {
        # do some stuff
    }
    else {
        sleep 1;
    }
}