perl中使用signal(信号)实例

所属分类: 脚本专栏 / perl 阅读数: 1554
收藏 0 赞 0 分享

使用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

就可以触发这个信号处理程序,你可以在这个信号处理程序中打开和关闭调试信息,或者切换工作模式等等。当然因为signal是操作系统的功能,所以这里的变成语言不仅仅对perl适用,对其他的语言也适用。只是语法不同而已。

更多精彩内容其他人还在看

Perl文件读取的经典用法分享

Perl文件读取的经典用法,有需要的朋友可以参考下
收藏 0 赞 0 分享

perl大文件读取处理的模块介绍

perl CPAN中有一个Tie-File 模块极大方便了对大文件的操作
收藏 0 赞 0 分享

perl跳过首行读取文件的实现代码

要求直接跳过第一行,然后读取后面的内容,以下代码来自网络,感谢原作者的辛苦劳动,顺祝新年快乐
收藏 0 赞 0 分享

Perl split字符串分割函数用法指南

本文向大家简单介绍一下Perl split函数的用法,Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中
收藏 0 赞 0 分享

perl数组的多数字下标示例代码

perl数组中正常的下标运算,想必大家都比较熟悉,这里不作说明。本文想说的是perl数组下标的多数字取值,可以极大的方便数组的操作
收藏 0 赞 0 分享

perl对m x n类似表进行按列排序的代码

perl对m x n类似表进行按列排序的代码,有需要的朋友可以参考下
收藏 0 赞 0 分享

perl常量、多维数组及变量的初始化的实例代码

perl常量、多维数组及变量的初始化的例子,供大家学习参考
收藏 0 赞 0 分享

perl的logwrapper使用实例代码

perl的logwrapper可以对任何的函数将标准输出和错误输出重定向到对应的log文件
收藏 0 赞 0 分享

Perl中处理时间的几个函数

本文为大家介绍Perl中处理时间的几个函数,供大家学习参考
收藏 0 赞 0 分享

perl上下文介绍

了解perl的朋友,都知道perl上下文在perl编程中的重要性,这里粗浅的作下介绍,供初学的朋友参考
收藏 0 赞 0 分享
查看更多