Re: Re: Re: Re: background Win32 process'

[sevensven]

zuqif, the script I posted above is intended to launch another script in the background (daemon.pl in the example).

So, you need to change whatever needs to be changed to match your system (my perl install dir is non orthodox)

I tested the script before posting (even tryed to do a use strict, but it barfed some errors related to Win32 and I droped it, since this was just a code sample) and it worked as intended (by me, at least ;^)

I'll put here the progie that I used as the background process, save it as daemon.pl in the same dir as the previous code and the try running the previous code and checking for the c:\daemon.log file

use strict;

my $log_file = 'c:\daemon.log';
open (LOG, ">$log_file") || die ("cant create $log_file : $!");

for ($i = 5 ; $i > 0 ; $i--) {
  print LOG "daemon running $i\n";
  # print "daemon running $i \n";
  sleep(1);
}
print LOG "thats all folks\n";
close LOG;

The first script could even acept as parameters the name of the perl script it should run in the background,

[zuqif]

Yeh, but how'd I get the 1st script to run in the background!?
A wrapper for the wrapper!?

Recursion anyone!? (:
the 'qif;

[sevensven]

That's a diferent question from your inicial question. Now that you have a script that can run another detached from the console, how can you lauch it ?

• Run it from the command line (if its a long lived daemon, er process, it will be a fire and forget :-)
• use a scheduler command, like an at command on winnt
• create a batch file and run the perl script that creates the detached process from there
• use the same technique that you would use to run any other detached program ;^)
  
  I've done it with an at command and a batch file that does a "d:\apps\perl\bin\perl.exe d:\dev\perl\rundaemon.pl" (rundaemon.pl is the inicial script).

  You may also want to read other discussions on PM about similar subjects : Perl as a background process on Windows NT/2000, WinDoze NT Automation Question, Cron Job??, Running Perl code from a Windows service, Running a Perl script in the background from another Perl script, Hiding Windows Programs

  Or you could put rundaemon.pl calling itself as a detached process. Then you would get recursion 8^)