推 LiloHuang: 我猜應該是 child process 的 STDOUT 沒有被 redirect 04/30 07:36
→ LiloHuang: 可能得自己搞個 pipe 之類的,或者直接用 backticks 04/30 07:38
→ LiloHuang: my $retval = `perl test.pl`; 或用 IPC::Open3 之類的 04/30 07:40
→ LiloHuang: 當然如果要透過 CGI 印回去還得再 print $retval; 才行 04/30 07:42
→ LiloHuang: open(CHLD_PROCESS, "perl test.pl |"); 也是一種方法 04/30 07:43
→ LiloHuang: while (<CHLD_PROCESS>) { 04/30 07:44
→ LiloHuang: print; 04/30 07:45
→ LiloHuang: } 04/30 07:45
→ LiloHuang: close(CHLD_PROCESS); 04/30 07:45
→ 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
推 LiloHuang: 原來如此! 有找到合適的方式最重要 :) 04/30 16:11