If you're using Windows, check out ybiC's recently posted meditation Schedule Win32 Perl Scripts with AT.

#!/usr/local/bin/perl -w
use strict;
use Time::Local;
use POSIX qw(ctime difftime mktime);

my $starttime = '08.12.02 03:00:00';
my $nowtime = time; #time in sec since 1970
my $sTime = 0;
my $sleepSec = 0;

#parsing the input (start) time
if ($starttime =~ /^\s*(\d{1,2})\.(\d{1,2})\.(\d{2})\s+(\d{1,2})\:(\d{
+1,2})\:(\d{1,2})\s*$/) {
  #  mktime(sec,min,hr,day,month,year)
  #  month (0..11); year = 0 => 1900 , year = 100 => 2000
  $sTime = mktime($6,$5,$4,$1,$2-1,100+$3); 
}

print "Now-Date   = ", ctime($nowtime);
print "Start-Date = ", ctime($sTime);

$sleepSec = difftime($sTime,$nowtime);
if ($sleepSec>0) {
  print "Want to sleep : $sleepSec seconds\n"; 
  # sleep ($sleepSec);
} else {
  print "Shit I missed my starttime...\n";
}
[download]

This has been organized in the Schedule::ByClock module found at http://www.cpan.org/authors/id/S/SC/SCHAFFTER/



---

Everything went worng, just as foreseen.

cool
I did not know that this module exists.
Than I would prefer to use the Schedule::ByClock module.
(Why invent the wheel a second time ??)

The simplest way would be to do read the time through the localtime(time) function. I don't totally agree with using cron or AT. Do something like this, and your script will stay cross-platform (something I need).

...
while(1)
{
   sleep(60);
   @time = localtime(time);
   if(($time[2] == 10) && ($time[1] == 0)
   {
       #do what ever you want to do at 10am 
   }
}
[download]

I hope this helps..

Thanks!

#!/massyn.pl

You never know important a backup is until the day you need it.

As I am a Tivoli consultant, I should point out that there is an excellent tool called Tivoli Workload Scheduler to do this.

You can always send me a mail if you want to know more about this.

But, since PM is a non profit organisation, I should confirm that you could use cron or at instead :-).

---------------------------
Dr. Mark Ceulemans
Senior Consultant
IT Masters, Belgium