close

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  其它函數

▶ Perl 函式|函數|指令集

 


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 News123 的頭像
    News123

    隨手記錄

    News123 發表在 痞客邦 留言(0) 人氣()