Chinaunix

标题: Perl代码执行过程中什么情况下可以ctrl+c中断结束 [打印本页]

作者: aaronvox 时间: 2006-08-04 10:57
标题: Perl代码执行过程中什么情况下可以ctrl+c中断结束
我想知道为什么这段代码不能用ctrl+c中断结束
Perl代码执行过程中什么情况下可以ctrl+c中断结束
什么情况下不可以呢？

(单独执行的，并没有修改$SIG{INT}等任何信号处理)

my $i = 0;
foreach ( split /\n/, $MyTxt )
{
$_ = "[PID:$$]".$_."\n";
print ;
$i ++;
if ( $i > 45 )
{
sleep 5;
$i = 0;
}
select(undef,undef,undef,0.3);
}

复制代码

作者: 兰花仙子 时间: 2006-08-04 12:35
无论是sleep还是select，都可被信号中断，包括SIGINT,SIGCHLD...
如果不能中断，则是另外的问题，例如OS不同中断指令也不同，或script正在等待终端输入（ctrl+d结束）。

作者: aaronvox 时间: 2006-08-04 12:45
我用的是 HP-UX HH4_1 B.11.11 U 9000/800 1199306884 unlimited-user license
别的都能Ctrl+ c
就这段代码执行时候就不行按啥组合键都不停只好kill -9
不知道咋回事

后来我设置
local $SIG{INT} = sub { die "Somebody send me SIGINT\n" };
这些都一样没反应还是不停

Faint!

靠我换了台机器
SunOS 5.8 Generic_117350-06 sun4u sparc SUNW,Sun-Fire-880

就可以了这个看来需要系统支持还是有区别啊

[ 本帖最后由 aaronvox 于 2006-8-4 12:51 编辑 ]

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)