我有一支 CGI 如下:
#!C:\Perl\bin\perl -w
use Win32::Process;
###########################
# http html response header
print "Content-type: text/html\r\n\r\n";
$cmd = 'c:/Perl/bin/perl.exe';
###################################
# test.pl 里面只有一行: print "hi";
$arg = 'perl test.pl';
###################
# 红色 1: 是 iflags
# 青色 0: 是 cflags
if(!Win32::Process::Create($process,$cmd,$arg,1,0 ,'.')){
$err = "Create process fail";
print $err;
exit;
}
$process->Wait(2000);
$process->GetExitCode($exitCode);
=================================
我如果在 cmd 下直接执行这支 script
在 console 视窗可以看到 hi 这个字串有出来
不过如果透过 browser 呼叫这支 CGI
前端页面就什么都没有(不知道 hi 这个字串跑哪去了??)
注: 我参考 http://search.cpan.org/~jdb/Win32-Process-0.16/Process.pm
尝试改变过 Win32::Process::Create 有关 iflags 和 cflags 参数的任何值
前端页面还是一样没东西
谢谢大家唷

我猜应该是 child process 的 STDOUT 没有被 redirect可能得自己搞个 pipe 之类的，或者直接用 backticksmy $retval = `perl test.pl`; 或用 IPC::Open3 之类的当然如果要透过 CGI 印回去还得再 print $retval; 才行open(CHLD_PROCESS, "perl test.pl |"); 也是一种方法while (<CHLD_PROCESS>) {print;}close(CHLD_PROCESS);很久没写 Perl，可能语法上还得再确认一下是否正确 ^^原来如此! 有找到合适的方式最重要 :)