1. eval：

eval是一個表示式，而不是if和while這樣的控制結構，eval塊發生嚴重錯誤時，eval塊會停止執行，但程式不會崩潰。所以在程式中執行有可能引起嚴重錯誤的程式碼塊，但又不想影響後續程式的執行時，可以把這部分程式碼塊放入eval中。eva塊正常執行，還是發生了嚴重錯誤，放在[email protected]中，如果沒錯，[email protected]為空，否則存放錯誤的原因。可以用[email protected]的boolean值判斷結果：print [email protected] if [email protected]

有四種類型的錯誤，eval不能捕捉，例如記憶體不足等系統錯誤，perl都沒法跑起來。

想退出eval程式碼塊，用的是die，而不是exit；

2. alarm：

alarm exp；

alarm；

如果exp被忽略，則用$ _的值來代替。實際的時間延遲是不準確的，因為不同的系統實現了不同的報警功能。實際時間可能是可達的第二或小於所請求的值。 在任何一個時間內只能設定一個鬧鐘定時器。

eg1：

 $timeout=5;
 eval {
           local $SIG{ALRM} = sub { die "after $timeout seconds,run alarm\n" }; #設定超時時的處理函式
           alarm $timeout;
           sleep 10;
           print "in alarm eval\n";
           alarm (0); #程式執行完成，取消前面的超時處理，並且不會開啟一個新的超時操作。

output：

# perl test.pl
out of alarm eval
after 5 second,run alarm

解析：因為在eval塊中，設定了alarm 5；之後，執行後面的程式碼塊，5s後已經超時了，程式還只執行在sleep 5，所以eval裡面的print未執行；

如果將sleep 10換成sleep 2：

# perl test.pl
in alarm eval
out of alarm eval

所以如果alarm $timeout和alarm 0之間的程式碼執行時間超過了$timeout，就會die，退出eval；

eg2：

 $SIG{ALRM} = sub {
         system("killall -9 firefox") or warn "Fail to kill firefox process \n";
    };

alarm 20;
system("firefox");
alarm 0;

解析：

在執行這段程式碼的時候，firefox最後並沒有被kill掉，那是因為alarm 20和alarm0之間的程式碼執行時間沒有超過20s，然後alarm 0已經取消了超時操作。

如果想在20s後，kill掉firefox，可以如下：

 $SIG{ALRM} = sub {
         system("killall -9 firefox") or warn "Fail to kill firefox process \n";
    };

alarm 20;
system("firefox");
sleep 21;
alarm 0;