自己写的timet

grshrd49

自己写了个timer

1. 
   
2. use strict;
   
3. use AnyEvent;
   
4. 
   
5. my $cv = AnyEvent->condvar;
   
6. my $w; $w = AnyEvent->timer(
   
7.         after        => 1,
   
8.         interval        => 1,
   
9.         cb => sub {
   
10.                 if (&nowtime("","","","","","23","")){
    
11.                         &do1 ;
    
12.                 }
    
13.                 my $timeshow;
    
14.                 print "$timeshow\n";
    
15.         }
    
16. );  
    
17. $cv->recv;
    
18. 
    
19. sub do1
    
20. {
    
21.         print "test1\n";
    
22. }
    
23. 
    
24. sub do2
    
25. {
    
26.         print "tast1 \n";
    
27. }
    
28. 
    
29. 
    
30. sub nowtime
    
31. {       
    
32.         #格式
    
33.         #&nowtime("yyyy","mm","dd","hh","mm","ss","www")
    
34.        
    
35.         #<返回具体时间>
    
36.         #传入1返回需要的具体时间 小时:分钟:秒 hh:mm:ss
    
37.         #不传就不返回
    
38.         #&nowtime("","","","1","1","1","")
    
39.        
    
40.         #<验证具体时间>
    
41.         #传入具体时间,验证是否是到达当前时间
    
42.         #如果是5点1分要传入05 01 , 否则会当作<返回具体时间>处理
    
43.         #返回1是当前时间，返回0不是当前时间
    
44.         #&nowtime("","","","14","15","44","")
    
45.        
    
46.         my @need_return = @_;
    
47.         my %month = (
    
48.                 "Jan" => "01","Feb" => "02","Mar" => "03","Apr" => "04",
    
49.                 "May" => "05","Jun" => "06","Jul" => "07","Aug" => "08",
    
50.                 "Sep" => "09","Oct" => "10","Nov" => "11","Dec" => "12",
    
51.         );
    
52.        
    
53.         my $local_time = localtime();
    
54.         my @date = split /\s+/,$local_time;
    
55.         $date[2] = sprintf "%02d",$date[2];
    
56.         my @time = split /:/,$date[3];
    
57.         my @now_time = ($date[4],$month{$date[1]},$date[2],$time[0],$time[1],$time[2],$date[0]);
    
58.        
    
59.         #全是空值直接返回0
    
60.         my $i = 0;
    
61.         for(@need_return){
    
62.                 if( $_ eq "" ){
    
63.                         $i++;
    
64.                         return 0 if( $i == 7 );
    
65.                         next;       
    
66.                 }
    
67.                 if( $_ == 1 ){
    
68.                         #有一个参数是 1 说明要返回具体时间
    
69.                         my $return_time;
    
70.                         $return_time = $return_time . $date[4] if ( $need_return[0] ne "" );                        #年
    
71.                         $return_time = $return_time . "-" if ( $need_return[0] ne "" && $need_return[1] ne "");        #-
    
72.                         $return_time = $return_time . $month{$date[1]} if ( $need_return[1] ne "" );        #月
    
73.                         $return_time = $return_time . "-" if ( $need_return[1] ne "" && $need_return[2] ne "");        #-
    
74.                         $return_time = $return_time . $date[2] if ( $need_return[2] ne "" );                        #日
    
75.                         $return_time = $return_time . " " if ( $need_return[2] ne "" && $need_return[3] ne "");        #空格
    
76.                         $return_time = $return_time . $time[0] if ( $need_return[3] ne "" );                        #时
    
77.                         $return_time = $return_time . ":" if ( $need_return[3] ne "" && $need_return[4] ne "");        #:
    
78.                         $return_time = $return_time . $time[1] if ( $need_return[4] ne "" );                        #分
    
79.                         $return_time = $return_time . ":" if ( $need_return[4] ne "" && $need_return[5] ne "");        #:
    
80.                         $return_time = $return_time . $time[2] if ( $need_return[5] ne "" );                        #秒
    
81.                         $return_time = $return_time . " " if ( $need_return[5] ne "" && $need_return[6] ne "");        #空格
    
82.                         $return_time = $return_time . $date[0] if ( $need_return[6] ne "" );                        #周
    
83.                         return $return_time;
    
84.                 }else{
    
85.                         #否则比对时间
    
86.                         my $n = 0;
    
87.                         for(@need_return){
    
88.                                 if( $_ ne "" ){
    
89.                                         return 0 if( $_ ne $now_time[$n]);
    
90.                                 }
    
91.                                 $n++;
    
92.                         }
    
93.                         return 1;
    
94.                 }
    
95.         }
    
96. }

复制代码

rubyish

这个timer要看多少书才知道写阿~

grshrd49

小骆驼就足够拉
主要还是AnyEvent这个模块，就直接拿文档上的例子过来用的，其实还不是很了解AnyEvent内部的是则么实现的...
以前用for做的timer ，哈哈你懂的呀

py

AnyEvent很适合拿来就用，没必要知道“内部是怎么实现的"，就像买了一车，首先是学会怎么开好了，这一步会花不少时间。
AnyEvent是很强大，但同时学习成本也相对高。随着你对AnyEvent和周边模块的理解加深，“内部是怎么实现的”也就慢慢明白了

grshrd49

回复 4# py

学习是充满乐趣的事情，不是嘛！！哈哈
   

rubyish

大神, 他在哪里用?
这个timer它的用法 ?

grshrd49

1. if (&nowtime("","","","","","23","")){
   
2.     &do1 ;
   
3. }

复制代码

在nowtime("","","","","","23","")中添加时间，
比如每天凌晨1点 nowtime("","","","01","00","00","")，时间一到就会去执行do1这个函数