我有一支 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，可能語法上還得再確認一下是否正確 ^^原來如此! 有找到合適的方式最重要 :)