[兴趣贴]使用schedule来调度一些dispatch

kq01

近日无聊，找到了一个调度dispatch的模块，调试了一下，把代码贴下来，供无聊的弟兄看看。
#test.pl
#
      use Schedule::Cron;
      
      my $dispatcher = sub { print "Time to start...\n"};
      my $cron = new Schedule::Cron($dispatcher);
               
      my $min = $ARGV[0];
      my $hour = $ARGV[1];
      my $day_of_month = $ARGV[2];
      my $month = $ARGV[3];
      my $day_of_week = $ARGV[4];
      my $seconds = $ARGV[5];
      
      $cron->add_entry("$min $hour $day_of_month $month $day_of_week $seconds");
      $cron->run;             # Runs forever...
      
#test_cron.bat
      #Every five seconds and then output the number
      perl test_cron.pl * * * * * 0-59/5
      pause
------------------------------------------------------------------------------------------------------------------------