perl 如何根據(jù)時間來循環(huán)

huanghaojie

有一個perl腳本，while (1){run comand}, 一直循環(huán)，這個在perference 里用的。我想讓這個腳本跑10個小時，怎么寫 while,之前是跑了10個小時，手動來個crtl+c.
最好這里有個$hours的變量，可以讓我附值，這樣我想讓這個腳本跑幾個小時，就跑幾個小時。

my $hours=?;
while (****) {run command}

flw

perldoc -f alarm

bikong0411

$SIG{INT}=sub{your code}

hitsubunnu

1. use AnyEvent;
   
2. 
   
3. my $cv = AE::cv;
   
4. 
   
5. my $i;
   
6. my $loop = AE::timer 0,1,sub{ print $i++,$/; };
   
7. 
   
8. my $watch = AE::timer 10,0,sub{   ## 10秒后退出
   
9.         print "byebye";
   
10.         $cv->send;
    
11. };
    
12. 
    
13. $cv->recv;

復(fù)制代碼

jason680

time function is good enough for this requested