Question

我有一个perl脚本，当有点蒸馏时，看起来像这样：

my $randport = int(10000 + rand(1000));          # Random port as other scripts like this run at the same time
my $localip = '192.168.100.' . ($port - 4000);   # Don't ask... backwards compatibility
system("ssh -NL $randport:$localip:23 root\@$ip -o ConnectTimeout=60 -i somekey &");    # create the tunnel in the background

sleep 10;       # Give the tunnel some time to come up

# Create the telnet object
my $telnet = new Net::Telnet(
        Timeout =>      10,
        Host    =>      'localhost',
        Port    =>      $randport,
        Telnetmode =>   0,
        Errmode =>      \&fail,
);

# SNIPPED... a bunch of parsing data from $telnet

问题是目标$ ip是在带有非常不可预测的带宽的链路上，因此隧道可能会立即出现，可能需要一段时间，它可能根本不会出现。所以需要睡一觉才能让隧道有一段时间起床和跑步。

所以问题是：如何测试隧道是否启动并运行？如果隧道立即出现，10秒是非常不希望的延迟。理想情况下，我想检查它是否已启动并继续创建telnet对象，最长为30秒。

编辑： Ping无法帮助我，因为隧道的远端通常已启动，但数据包丢失率非常高

已解决：根据mikebabcock建议的提示进行推断，sleep 10已经被这个像魅力的块所取代：

my $starttime = time();
while (1)
{
    # Check for success
    if (system("nc -dzw10 localhost $randport > /dev/null") == 0) { last }

    # Check for timeout
    if (time() > $starttime + 30) { &fail() }

    # 250ms delay before recheck
    select (undef, undef, undef, 0.25);
}

Answer 1

在Linux系统上使用netcat - 通常为nc：

nc -dvzw10 ${HOSTNAME} 23

适用于我，回复如下：

Connection to ${HOSTNAME} 23 port [tcp/telnet] succeeded!

成功后它也会返回0，并且对一个简单的连接感到满意，之后就会消失。

-d表示不从键盘端读取任何内容
-v表示详细（在脚本中将其关闭）
-z表示建立连接后断开连接
-w10表示等待最多10秒，否则放弃

Answer 2

您可以将ping集成到您的ssh服务器，如果它正常工作，则ssh隧道已启动

# only a ping sample :-D
if !  ping -c 1 192.168.101.9
then
        echo ":-("
else
        echo ":-)"
fi

Answer 3

我认为fping可能比通常的ping更好，更适合脚本。

fping -t 60000 [你的服务器]

应该在放弃之前60秒尝试连接到服务器像

这样的东西

if(fping -t 60000 [your server]) {
execute desired code;
} else {
execute this script again to rerun;;
}

我认为即使编码不真实，你也会明白这一点。

检查SSH隧道是否已启动并正在运行

3 个答案: