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
}