Perl代碼執(zhí)行過(guò)程中什么情況下可以ctrl+c中斷結(jié)束

aaronvox

我想知道為什么這段代碼不能用ctrl+c中斷結(jié)束
Perl代碼執(zhí)行過(guò)程中什么情況下可以ctrl+c中斷結(jié)束
什么情況下不可以呢？

(單獨(dú)執(zhí)行的，并沒(méi)有修改$SIG{INT}等任何信號(hào)處理)

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. 
    

復(fù)制代碼

蘭花仙子

無(wú)論是sleep還是select，都可被信號(hào)中斷，包括SIGINT,SIGCHLD...
如果不能中斷，則是另外的問(wèn)題，例如OS不同中斷指令也不同，或script正在等待終端輸入（ctrl+d結(jié)束）。

aaronvox

我用的是 HP-UX HH4_1 B.11.11 U 9000/800 1199306884 unlimited-user license
別的都能Ctrl+ c
就這段代碼執(zhí)行時(shí)候就不行 按啥組合鍵都不停 只好kill -9
不知道咋回事

后來(lái)我設(shè)置
local $SIG{INT} = sub { die "Somebody send me SIGINT\n" };
這些都一樣沒(méi)反應(yīng) 還是不停

Faint!

靠 我換了臺(tái)機(jī)器
SunOS 5.8 Generic_117350-06 sun4u sparc SUNW,Sun-Fire-880

就可以了 這個(gè)看來(lái)需要系統(tǒng)支持 還是有區(qū)別啊

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