perl的細(xì)節(jié)

billypeng

有兩個程序, a.pl 和 b.pl , 內(nèi)容如下:
a.pl

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. #my ($f, $pid, $result);
   
5. print "Time1:", time(), "\n";
   
6. eval{
   
7.   my ($f, $pid, $result);
   
8.   local $SIG{ALRM} = sub { die "timeout"; };
   
9.   alarm(60);
   
10. #  sleep(120);
    
11.   $pid = open($f, "-|", "./b.pl");
    
12.   print $pid, "\n";
    
13.   $result = <$f>;
    
14.   print $result;
    
15.   alarm(0);
    
16. };
    
17. if($@)
    
18. {
    
19.     #check b state
    
20. }
    
21. print "Time2:", time(), "\n";
    
22. print "OK\n";
    

復(fù)制代碼

b.pl :

1. 
   
2. #!/usr/bin/perl
   
3. sleep(120);
   
4. print "B\n";
   

復(fù)制代碼

程序不用解釋，一看就懂，我希望a.pl超出60s就自己中斷，然后檢查b.pl的狀態(tài)。

我發(fā)現(xiàn)，在a.pl中，稍微調(diào)整一下代碼，運(yùn)行結(jié)果完全不一樣，暫時還沒有達(dá)到我的要求。

例如：
1. 把 my ($f, $pid, $result); 挪到外面;
2. 去掉 eval;
3. 去掉 alarm(0);
4. 直接用sleep(120)，而不用執(zhí)行b.pl，模擬延時。

現(xiàn)在的幾種結(jié)果是：
1. a.pl執(zhí)行到結(jié)尾，但沒有退出，必須等b.pl退出以后才退出。
2. a.pl在eval語句等待，但必須等b.pl退出以后才退出，相當(dāng)于alarm沒有起作用。
3. a.pl退出了，只等待了60s，但 if($@)后面的語句沒有執(zhí)行。

我需要的是：a.pl退出了，只等待了60s，執(zhí)行if($@)后面的語句。

蘭花仙子

我需要的是：a.pl退出了，只等待了60s，執(zhí)行if($@)后面的語句。

把管道改成：
$result =`./b.pl`;
就可以了。
<$f>是個阻塞調(diào)用。

蘭花仙子

from perldoc -f alarm:

If you want to use "alarm" to time out a system call you need to use an "eval"/"die" pair.  You can't rely on the alarm causing the system call to fail with $! set to "EINTR" because Perl sets up signal handlers to restart system calls on some systems.  Using "eval"/"die" always works, modulo the caveats given in "Signals" in perlipc.

billypeng

謝謝蘭花MM。

這是一個測試程序，原來程序只能用管道，實際上我需要通過管道寫數(shù)據(jù)，但那個程序經(jīng)常掛起，原因至今無法查出（以前發(fā)過一個帖子，就是老是進(jìn)入一個異常的死循環(huán)，不停地出現(xiàn)段異常）。

蘭花仙子

原來程序只能用管道，實際上我需要通過管道寫數(shù)據(jù)
billypeng 發(fā)表于 2010-03-16 23:23

As I've said, <$fh>這是一個阻塞調(diào)用，屬于slow system call（慢系統(tǒng)調(diào)用），而慢系統(tǒng)調(diào)用被信號中斷后是可能會自動重啟的。
通�？梢杂胹iginterrupt(signo, 1)來關(guān)閉重啟，或在用sigaction安裝信號處理函數(shù)的時候取消SA_RESTART標(biāo)志。