基于Alarm的多重定时器。

maxxfire

UID: 39267
帖子: 167
积分: 384
在线时间: 1 天 14 小时

1^# maxxfire 发表于 2008-01-08 10:38

基于Alarm的多重定时器。

由于perl脚本中alarm只能用一个，如果碰到需要多个定时器的情景就无法使用了。
于是利用gettimeofday实现了一个多个定时器同时使用的方法，呵呵，

#!/usr/bin/perl

#Timer

our $INT1 = 4;  #4 sec
our $INT2 = 2;  #2 sec
our $Timer1INT = 1*$INT1;
our $Timer2INT = 1*$INT2;

use Time::HiRes qw(gettimeofday);
$Timer1Befor = $Timer2Befor = gettimeofday();

$SIG{'ALRM'} = \&Do_Alarm;

sub Do_Alarm()
{
      &Do_Timer1();
      &Do_Timer2();
      alarm(1);
}
alarm(1);

while(1){
}

#=======Alarm Handler======
sub Do_Timer1()
{
      $Timer1Afer = gettimeofday();
      if( $Timer1Afer-$Timer1Befor > $Timer1INT ){
            $Timer1Befor = $Timer1Afer;
            &DoSweep1();
      }
}
sub Do_Timer2()
{
      $Timer2Afer = gettimeofday();
      if( $Timer2Afer-$Timer2Befor > $Timer2INT ){
            $Timer2Befor = $Timer2Afer;
            &DoSweep2();
      }
}

sub DoSweep1(){print "sweep1\n";}
sub DoSweep2(){print "sweep2\n";}

当然这种定时器，处理函数应尽量快，这样会比较准确。