in reply to WinDoze NT Automation Question

You could wrap the main part of the script in an
infinite loop with a call to sleep.

Set sleep to an appropriate interval of seconds i.e.
3600 (for one hour). Then run the program. It will execute
the main code once every hour.

If you want to simulate a cron
and have it run everyday at 2:00PM, you would just set the
sleep timer to 86400 (24*60*60) and first execute the program at 2:00pm today.

while(1) {
         #execute some code here....
          sleep 86400  #Run code once every 24 hours.
}

Replies are listed 'Best First'.
Re: Re: WinDoze NT Automation Question
by Sprad (Hermit) on Apr 25, 2001 at 02:07 UTC
    But what if it takes an hour to run the script? It'll run an hour later every day...

    ---
    A fair fight is a sign of poor planning.

[reply]
      Not that I would EVER do this for something that runs once a day - you can always do this: 
      while (1) {
    my $loop_start = time;
    
    #.... code

    my $sleep_time = 86400 - (time - $loop_start);
    sleep ($sleep_time);
}

      [download]


      TIMTOWTDI!

      $ perldoc perldoc
[reply]
[d/l]

      I suppose if that were the case you could adjust the
      sleep time back one hour (i.e) 60*60*23 instead of 60*60*24
      to account for the hour it takes the program
      to run. Just a guess off the top of my head...
      -LordAvatar

[reply]

In Section Seekers of Perl Wisdom