亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: perl 如何根據(jù)時(shí)間來循環(huán) [打印本頁]
作者: huanghaojie    時(shí)間: 2012-03-04 19:15
標(biāo)題: perl 如何根據(jù)時(shí)間來循環(huán)
有一個(gè)perl腳本，while (1){run comand}, 一直循環(huán)，這個(gè)在perference 里用的。我想讓這個(gè)腳本跑10個(gè)小時(shí)，怎么寫 while,之前是跑了10個(gè)小時(shí)，手動(dòng)來個(gè)crtl+c.
最好這里有個(gè)$hours的變量，可以讓我附值，這樣我想讓這個(gè)腳本跑幾個(gè)小時(shí)，就跑幾個(gè)小時(shí)。

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

作者: flw    時(shí)間: 2012-03-04 19:55
perldoc -f alarm
作者: bikong0411    時(shí)間: 2012-03-05 08:53
$SIG{INT}=sub{your code}
作者: hitsubunnu    時(shí)間: 2012-03-05 09:48
本帖最后由 hitsubunnu 于 2012-03-05 09:49 編輯
  1. use AnyEvent;

  3. my $cv = AE::cv;

  5. my $i;
  6. my $loop = AE::timer 0,1,sub{ print $i++,$/; };

  8. my $watch = AE::timer 10,0,sub{   ## 10秒后退出
  9.         print "byebye";
  10.         $cv->send;
  11. };

  13. $cv->recv;
復(fù)制代碼
作者: jason680    時(shí)間: 2012-03-05 10:21
time function is good enough for this requested



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2