Re^5: Running detached processes with Activeperl under IIS

still waits for the console application t

Well that's fishy. It can't be detached from and attached to the console at the same time.

Why does Windows have to be such a pita?

You have to close the handles and muck with process groups and signals in unix. No easier.

There are valid complaints against Microsoft and Windows (parameter passing to processes, as a related example), but mind the baseless bashing. DETACHED_PROCESS works fine, and there's nothing complicated about it.

# launcher.pl

use strict;
use warnings;

use Win32;
use Win32::Process;

sub ErrorReport{
   return Win32::FormatMessage( Win32::GetLastError() );
}

my $detached = $ARGV[0];

unlink('foo');

Win32::Process::Create(
   my $ProcessObj,
   "c:\\progs\\perl5100\\bin\\perl.exe",
   q{perl.exe -le"sleep 5; open $fh, '>foo' or die $!; print 'done'"},
   0,
   NORMAL_PRIORITY_CLASS | ($detached ? DETACHED_PROCESS : 0),
   '.',
)
   or die ErrorReport();
[download]

>perl -e"print `perl launcher.pl 0`" & dir /b foo
[waits 5 seconds]
done
foo

>perl -e"print `perl launcher.pl 1`" & dir /b foo
[returns immediately]
File Not Found

>perl -e"sleep 5" & dir /b foo
foo
[download]

Are you using use strict;?

Comment on Re^5: Running detached processes with Activeperl under IIS Select or Download Code

Replies are listed 'Best First'.
Re^6: Running detached processes with Activeperl under IIS by Jules (Initiate) on May 12, 2009 at 16:47 UTC
I feel like such a doofus sometimes.... I had commented out `use strict` while trying to get it working earlier, and left it out (back when I was trying system and exec). I put it back in, and got the "incomplete http headers" message that our server gives when I have an error...and it dawned on me.... My code was: `use strict; use warnings; my $child_pid; my $child_proc; print qq~ <html><head><title></title><body> ~; print qq~Testing2<br /><br />~; require Win32::Process; Win32::Process::Create($child_proc, "D:/ipms/bin/Medicaid/Console/Medi +caidEHRService.exe", "MedicaidEHRService 123456", 0, DETACHED_PROCESS +, ".") \|\| print "Could not spawn child: $!"; print qq~</body></html> ~;` [download] I changed it to: `use strict; use warnings; use Win32; use Win32::Process; my $child_pid; my $child_proc; print qq~ <html><head><title></title><body> ~; print qq~Testing2<br /><br />~; Win32::Process::Create($child_proc, "D:/ipms/bin/Medicaid/Console/Medi +caidEHRService.exe", "MedicaidEHRService 123456", 0, DETACHED_PROCESS +, ".") \|\| print "Could not spawn child: $!"; print qq~</body></html> ~;` [download] And guess what...it works! Now I need to go put it in the real code. Thanks for all your help!	[reply] [d/l] [select]
Re^6: Running detached processes with Activeperl under IIS by BrowserUk (Patriarch) on May 13, 2009 at 02:45 UTC
`or die ErrorReport();` Any particular reason for using that rather than `$^E`? Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l] [select]
Re^7: Running detached processes with Activeperl under IIS by ikegami (Patriarch) on May 13, 2009 at 18:01 UTC
I just copied it from the docs. They're probably exactly the same, but maybe not. There was no reason to change it.	[reply]