当目标重新启动时，用于远程登录和重新telnet的Perl脚本

Question

我需要编写一个在Windows上运行的Perl脚本，通过telnet进入Linux机器，不断监视Linux机器下的日志文件。但问题是，Linux机器经常被重启（通过其他一些脚本），Perl脚本应该在可用时（ping-able）重新telnet到Linux机箱。

要实现这一点，我应该在响应ping时持续ping Linux机器IP并远程登录到机器吗？或者还有其他方法吗？非常感谢。

Answer 1

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

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

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