re: Win32::Process

[William Black]

I have the following code that starts two different processes/perl scripts.  
The code correctly calls and processes the perl scripts, but never seems to 
return back to the calling script for further processing.  Does anyone have 
any clue why this might happen?

#Create dal process

if ($OK == 0){

 Win32::Process::Create($processobj0,"c:\\Perl\\bin\\perl.exe",

                        "perl dal.pl",1,CREATE_NEW_CONSOLE,".")|| 
&Warn("Error Creating Dal Process. Exiting");

}



#open dal process

if ($OK == 0){

 Win32::Process::Open($processobj0,my $pid0,1);

}



#Create stl process

if ($OK == 0){

 Win32::Process::Create($processobj1,"c:\\Perl\\bin\\perl.exe",

                        "perl stl.pl",1,CREATE_NEW_CONSOLE,".")|| 
&Warn("Error Creating Dal Process. Exiting");

}



#open dal process

if ($OK == 0){

 Win32::Process::Open($processobj1,$pid1,1);

}





#Wait for stl download to complete

while (!-e "stl.done") {};

print "stl.done finished\n";



#kill stl process

Win32::Process::KillProcess($pid1,$exitcode);





#Wait for dal download to complete

while (!-e "dal.done") {};

print "dal.done finished\n";



#kill dal process

Win32::Process::KillProcess($pid0,$exitcode);

William Black

_________________________________________________________________
Express yourself with the new version of MSN Messenger! Download today - 
it's FREE! http://messenger.msn.com/go/onm00200471ave/direct/01/

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>