Perl代码执行过程中什么情况下可以ctrl+c中断结束

aaronvox

我想知道为什么这段代码不能用ctrl+c中断结束
Perl代码执行过程中什么情况下可以ctrl+c中断结束
什么情况下不可以呢？

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

1. 
   
2. 
   
3.     my $i = 0;
   
4.     foreach ( split /\n/, $MyTxt )
   
5.     {
   
6.         $_ = "[PID:$$]".$_."\n";
   
7.         print ;
   
8.         $i ++;
   
9.         if ( $i > 45 )
   
10.         {
    
11.             sleep 5;
    
12.             $i = 0;
    
13.         }
    
14.         select(undef,undef,undef,0.3);
    
15.     }
    
16. 
    

复制代码

兰花仙子

无论是sleep还是select，都可被信号中断，包括SIGINT,SIGCHLD...
如果不能中断，则是另外的问题，例如OS不同中断指令也不同，或script正在等待终端输入（ctrl+d结束）。

aaronvox

我用的是 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 编辑 ]