6

我有一个 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);
}
4

3 回答 3

6

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

nc -dvzw10 ${HOSTNAME} 23

对我有用，回复如下：

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

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

  • -d 表示不从键盘端读取任何内容
  • -v 表示冗长（在脚本中关闭它）
  • -z 表示建立连接后断开连接
  • -w10 表示最多等待10秒，否则放弃
于 2012-09-26T15:43:17.113 回答
1

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

# only a ping sample :-D
if !  ping -c 1 192.168.101.9
then
        echo ":-("
else
        echo ":-)"
fi
于 2012-09-26T15:34:50.133 回答
0

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

fping -t 60000 [你的服务器]

应该在放弃之前尝试连接到服务器 60 秒之类的东西

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

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

于 2012-09-26T15:36:52.157 回答