perl中使用signal(信號)實例

 　　這篇文章主要介紹了perl中使用signal(信號)實例,本文講解了信號的相關知識以,並給出了perl代碼實例,需要的朋友可以參考下

　　使用signal，能讓你的程序功能更豐富。要在Linux下列出所有的signal， 利用kill -l即可。 下面是我機器上的輸出(後面還有到64的沒列出來)：

　　 代碼如下:

　　xuyang@xuyang-desktop:/$ kill -l

　　1) SIGHUP 2) SIGINT 3) SIGQUIT 4) SIGILL 5) SIGTRAP

　　6) SIGABRT 7) SIGBUS 8 ) SIGFPE 9) SIGKILL 10) SIGUSR1

　　11) SIGSEGV 12) SIGUSR2 13) SIGPIPE 14) SIGALRM 15) SIGTERM

　　16) SIGSTKFLT 17) SIGCHLD 18) SIGCONT 19) SIGSTOP 20) SIGTSTP

　　21) SIGTTIN 22) SIGTTOU 23) SIGURG 24) SIGXCPU 25) SIGXFSZ

　　26) SIGVTALRM 27) SIGPROF 28) SIGWINCH 29) SIGIO 30) SIGPWR

　　31) SIGSYS

　　其中每個signal在這裡有介紹.

　　下面是一個例子，禁止ctrl+c (ctrl+c 會產生一個INT信號給當前程序) 來關閉當前程序

　　代碼如下:

　　sub INT_handler {

　　print("Don't Interrupt!n");

　　}

　　$SIG{'INT'} = 'INT_handler'; #another way is $SIG{'INT'} = &INT_handler ;

　　for ($x = 0; $x < 10; $x++) {

　　print("$xn");

　　sleep 1;

　　}

　　其中的%SIG 是perl內置的hash，專門用來處理信號的。如果要ignore某個信號，可以寫成

　　代碼如下:

　　$SIG{‘INT'} = ‘IGNORE' ;

　　要恢復成缺省的情況，利用

　　 代碼如下:

　　$SIG{‘INT'} = ‘DEFAULT' ;

　　要發送一個ctrl+c 給某個程序，除了使用ctrl+c 以外，還可以鍵入

　　 代碼如下:

　　kill -s INT .

　　比較有實用價值的是SIGUSR1， SIGUSR2， 這兩個signal是自定義的。你可以在你的程序用用任意方式來處理這兩個信號。而當你想要觸發這個信號的時候，只需要在linux下鍵入

　　 代碼如下:

　　kill -s USR1 pid

　　就可以觸發這個信號處理程序，你可以在這個信號處理程序中打開和關閉調試信息，或者切換工作模式等等。當然因為signal是操作系統的功能，所以這裡的變成語言不僅僅對perl適用，對其他的語言也適用。只是語法不同而已。