作者cutekid (可愛小孩子)
看板Perl
標題[問題] Win32::Process CGI script
時間Fri Apr 27 11:00:12 2018
我有一支 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 參數的任何值
前端頁面還是一樣沒東西
謝謝大家唷
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.168.27.193
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Perl/M.1524798015.A.D3F.html
※ 編輯: cutekid (1.168.27.193), 04/27/2018 11:02:19
※ 編輯: cutekid (1.168.27.193), 04/27/2018 11:06:36
1F：推 LiloHuang: 我猜應該是 child process 的 STDOUT 沒有被 redirect 04/30 07:36
2F：→ LiloHuang: 可能得自己搞個 pipe 之類的，或者直接用 backticks 04/30 07:38
3F：→ LiloHuang: my $retval = `perl test.pl`; 或用 IPC::Open3 之類的 04/30 07:40
4F：→ LiloHuang: 當然如果要透過 CGI 印回去還得再 print $retval; 才行 04/30 07:42
5F：→ LiloHuang: open(CHLD_PROCESS, "perl test.pl |"); 也是一種方法 04/30 07:43
6F：→ LiloHuang: while (<CHLD_PROCESS>) { 04/30 07:44
7F：→ LiloHuang: print; 04/30 07:45
8F：→ LiloHuang: } 04/30 07:45
9F：→ LiloHuang: close(CHLD_PROCESS); 04/30 07:45
10F：→ LiloHuang: 很久沒寫 Perl，可能語法上還得再確認一下是否正確 ^^ 04/30 07:46
謝謝 Lilo 版主唷！
之所以想嘗試用 Win32::Process 去捕捉 child process STDOUT
是因為它有 Timeout 機制($process->Wait)，可避免 child process 執行太久
如果發生 Timeout 了，還可以透過 $process->Kill 來結束 child process
所以沒單純使用 backticks 或是其它 Open 手段！
不過版主的建議，讓我透過搜尋 IPC::Open3 時，找到 IPC-Run 這個東西:
http://search.cpan.org/~toddr/IPC-Run-0.99/lib/IPC/Run.pm
1. 捕捉 child process STDOUT
2. 有 Timeout 機制(還會自動 terminate child process ??)
謝謝 Lilo 版主唷！
※ 編輯: cutekid (1.168.27.193), 04/30/2018 12:33:56
11F：推 LiloHuang: 原來如此! 有找到合適的方式最重要 :) 04/30 16:11