in reply to Re: Running a process in the background
in thread Running a process in the background

I am running Windows XP. Start does launch a separate cmd shell as you have mentioned.

I am calling start from a perl script: 


my $output = `start /b perl test1.pl > testing.log`;
test2();

[download]

So basically I want test2() to run when test1.pl is executed in the background. But what really is happenning is that test1.pl completes its own commands and then test2() is executed.

How can I make them run simulataneously? Thanks.

Replies are listed 'Best First'.
Re^3: Running a process in the background
by bart (Canon) on Nov 24, 2004 at 00:47 UTC
    I am running Windows XP.
    Ah, that changes things considerably. You could use the standard Unix, on Windows emulated approach, such as fork. But you can use Windows specific methods, too, such as using Win32::Process. See They didn't give me a fork so I have to eat with a spawn..

    As a variaton on that theme, I made a little module that, when used in a program, restarts the script with the same parameters, but without a console: 

    # Save as module file Win32/Detached.pm, somewhere in @INC
package Win32::Detached;

use strict;
use Win32;
use Win32::Process;
use Cwd;

if(@ARGV and $ARGV[0] eq '-nolaunch') {
    shift;
} elsif(!$^C) {
    Win32::Process::Create(
        my $ProcessObj,
        $^X,
        join(" ", map { tr/ // ? qq["$_"] : $_ } $^X, $0, "-nolaunch",
+ @ARGV),
        0,
        DETACHED_PROCESS,
        cwd,
    ) or die Win32::FormatMessage(Win32::GetLastError());
    exit;
}

1;

    [download]

    Simply do 

    use Win32::Detached;

    [download]
    in your main script, just making sure you don't use "-nolaunch" as a command line switch.

    If that module is not handy for you — to be honest, I've rarely ever used it — you can at least borrow the parameters for the API call.

    If you want to permanently run a perl script in the background, check out how to run a perl script as a service — for more detailed info, see also this online article.

[reply]
[d/l]
[select]
      Almost four years later, but still amazingly helpful. Thank you for this. :)

      Also, why is this not on cpan? ;)
[reply]
        Also, why is this not on cpan? ;)
        The real reason? Because I haven't used it myself since I wrote it.
[reply]
      Hello bart,

      Thanks for the response. I would like to try out your module. How can I use this module to run test1.pl in the background?

      If you could provide an example of how to use the module, that would be greatly appreciated.

      Thanks.

[reply]

In Section Seekers of Perl Wisdom