Perl 函式 - alarm()
■ 功 能
① 送出一個SIGALRM訊號給執行中的Perl程式
② 發出警報
■ 語 法
alarm EXPR
alarm
■ 用 法
① alarm 會在 EXPR 秒後，送出一個SIGALRM訊號給執行中的Perl程式。
② EXPR 若省略時，則用$ _的值來代替。
■傳 回 值
前一個計時器還剩下的秒數
■ 範 例
程式碼
#!/usr/bin/perl
$TIMEOUT = 10
eval {
local $SIG{ALRM} = sub { die "alarm\n" }; #設定超時的處理函式
alarm $TIMEOUT;
sleep 10;
$nread = sysread SOCKET, $buffer, $size;
alarm 0; #程式處理完成，取消前一次的計時器，而不會重新啟動一個計時器
};
if ($@){
die unless $@ eq "alarm\n"; # propagate unexpected errors
# timed out
}
else {
# didn't
}
＃關鍵字 Perl 函式 - alarm用法；Perl 函式 - alarm語法；Perl 函式 - alarm範例；
■ Perl 其它函數
文章標籤
全站熱搜
夜 市 (35)