[問題] Win32::Process CGI script
我有一支 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://www.ptt.cc/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
推
04/30 07:36,
6年前
, 1F
04/30 07:36, 1F
→
04/30 07:38,
6年前
, 2F
04/30 07:38, 2F
→
04/30 07:40,
6年前
, 3F
04/30 07:40, 3F
→
04/30 07:42,
6年前
, 4F
04/30 07:42, 4F
→
04/30 07:43,
6年前
, 5F
04/30 07:43, 5F
→
04/30 07:44,
6年前
, 6F
04/30 07:44, 6F
→
04/30 07:45,
6年前
, 7F
04/30 07:45, 7F
→
04/30 07:45,
6年前
, 8F
04/30 07:45, 8F
→
04/30 07:45,
6年前
, 9F
04/30 07:45, 9F
→
04/30 07:46,
6年前
, 10F
04/30 07:46, 10F
謝謝 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
推
04/30 16:11,
6年前
, 11F
04/30 16:11, 11F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
