background Win32 process'

[zuqif]

Greets to all the Monks out there.
I normally work 90% of perl code on RH 'nix, but thanks to SuperSearch,
have recently been working various use Win32 scripts, w/ActiveState on '98SE.
My question is this : Is it possible to run a perl script in the background!?

Possible W'doze solution, or perl?

I did wonder about wrapping the script in another, with a system call or somesuch ..
Any and all comments, humbly received!
the 'qif;

[tye]

system(1,$command) is the simplest way. I'm a bit disappointed that this isn't supported on Unix because then it would also be the most portable... but then, I should just "fix" that...

        - tye (but my friends call me "Tye")

[blackmateria]

Check out Win32::Process, I think that's what you're looking for.

[sevensven]

You will need to use a flag that I dont see documented in Win32::Process, but that is in the first page of Process.pm (DETACHED_PROCESS).

I hope the folowing code borrowed from Dave Roth's Win32 Perl Programming helps :

use Win32::Process;

# Win32::Process::Create( $process, $program, $command_line, $inherit,
+ $flags, $directory)

$app = "d:\\apps\\perl\\bin\\perl.exe";
$cmd = 'perl daemon.pl';
$b_inherit = 1;
$flags = CREATE_NEW_PROCESS || DETACHED_PROCESS;
$dir = '.';
$result;

$result = Win32::Process::Create( $process, 
                                  $app,
                                  $cmd,
                                  $b_inherit,
                                  $flags,
                                  $dir);
if ($result) {
  print "$cmd has been created with process id of $result\n";
}
else {
  print "unable to start $cmd\n";
  print "error : " . Win32::FormatMessage( Win32::GetLastError() );
}

[zuqif]

Thanks for clarifying sevensven .. and for the pointer blackmateria

This needs some playing with ..

the 'qif;

[zuqif]

Am I missing something here!?
All I have now is the wrapper script waiting to end rather than the script it calls!?

the 'qif;

[zuqif]

Not wanting to appear ungrateful for all your efforts -
many thanks to all who've contributed!
But I thot that was the question I asked:
I need the ability to run a script in the background, under Windows98.
The links above all relate to WinNT/2000
(altho have yet to install / try Win32::Daemon - thx Tye)
The system(1,$cmd); option makes no difference under 98

I hope am not being dumb here ..
local mcp SysAdm is doubtful that its even poss :(
the 'qif;