基于Alarm的多重定时器。

maxxfire

由于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";}

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

放驴娃

封装得不够好。
功能也有待改进。