perl 如何根据时间来循环

huanghaojie

有一个perl脚本，while (1){run comand}, 一直循环，这个在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;

复制代码

jason680

time function is good enough for this requested