教你如何在perl中使用signal

2020-02-23 19:44:28

字體：大中小

來源：轉載

供稿：網友

我們在perl編程中使用signal可以讓我們的程序功能變得更豐富，但是仍有許多小伙伴們不知道如何使用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("$x/n");
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