如何在perl中计算“可靠”300秒的时间？

Question

我怎么才能暂停5分钟呢？

我的程序是这样做的：

# I need to try something every 3 seconds, for at most 5 minutes
$maxtime = time() + (5 * 60);
$success = 0;
while (($success == 0) && (time() < $maxtime)) {
  $success = try_something();
  sleep (3) if ($success == 0);
}

问题是:这个程序在启动后就会运行。它运行的嵌入式系统没有rtc/时钟电池。时钟从2000年1月1日开始，然后在第一分钟内运行，它得到网络，ntp将时钟设置为更新的时钟，使循环在5分钟超时之前退出。

即使系统时钟被其他外部程序更改，在perl脚本中“计数5分钟”的正确方法是哪一种？

Answer 1

我认为在这里使用报警功能是有意义的。

{
  local $SIG{ALRM} = sub {
     warn "Ooops! timed out, exiting";
     exit(100); # give whatever exit code you want
  };

  ## setup alaram
  alarm( 5 * 60 );
  my $success = 0;
  until($success) {
    $success = try_something()
       or sleep 3;
  }

  ## deactivate alarm if successful
  alarm(0);
}

Answer 2

如果try_something()花费了相当长的时间，您可以只循环100次。或者，如果系统很忙，您的睡眠时间通常超过3秒，那么use Time::HiRes 'sleep';并将睡眠的返回值加起来，直到它达到300。

如果没有，那么也许是这样的：

my $last_time = my $start_time = time();
while () {
    try_something() and last;
    my $time = time();
    # system clock reset? (test some limit that is more than try_something could ever take)
    if ( $time - $last_time > 86400 ) {
        $start_time += $time - $last_time;
    }
    $last_time = $time;
    sleep( List::Util::min( 3, $start_time + 300 - $time ) );
}

Answer 3

您希望使用单调计时器之一；例如，select和poll超时使用这种计时器。

select undef, undef, undef, 5*60;

或

use IO::Poll;
my $poll = IO::Poll->new;

$poll->poll(5*60);