Perl alarm用法及代码示例

描述

此函数设置 "alarm," 使当前进程在 EXPR 秒内接收 SIGALRM 信号。如果省略 EXPR，则使用 $_ 的值代替。

实际的时间延迟并不精确，因为不同的系统实现的报警函数不同。实际时间可能比请求的值多或少一秒。您一次只能设置一个闹钟定时器。如果计时器已经在运行并且您对警报函数进行了新调用，则警报计时器将重置为新值。通过指定值 0，可以在不设置新计时器的情况下重置正在运行的计时器。

用法

以下是此函数的简单语法 âˆ'

alarm EXPR

alarm

返回值

此函数返回整数值，即。上一个计时器剩余的秒数。

示例

以下是显示其基本用法的示例代码 -

#!/usr/bin/perl

eval {
   local $SIG{ALRM} = sub { die "alarm\n" }; # NB:\n required
   alarm $timeout;
   $nread = sysread SOCKET, $buffer, $size;
   alarm 0;
};
if ($@) {
   die unless $@ eq "alarm\n";   # propagate unexpected errors
      # timed out
} else {
   # didn't
}