作者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/cn.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