mod_perl並在子進程中繼承STDIN

Question

我有這個舊的Perl腳本應該充當基於HTTP的客戶端和非HTTP Java服務器之間的代理類：客戶端將一些數據POST到此Perl腳本和腳本將依次調用Java服務器，獲取響應並將其返回給客戶端。

Perl的一部分調用這樣的服務器：

$servervars = "-DREMOTE_HOST=$ENV{'REMOTE_HOST'}"; 
#(a few other server variables passed this way) 

system "java $servervars -cp /var/www javaserver"; 

，然後Java服務器會去：

InputStream serverData = System.in; 
serverData.read(); //and read, and read it on 
//.... 
//print response: 
System.out.print("Content-type: application/octet-stream\n\n"); 
System.out.write(...); 

問題是，當Perl腳本是通過CGI調用這個工作得很好，但如果Perl腳本是由mod_perl（實際上是mod_perl2）來處理的話，它根本不起作用。顯然，Java部分不會從Perl獲得STDIN（serverData.available（）返回0），並且Perl不會返回STDOUT。後者可以通過打印`java ...`（即反引號）而不是系統「java ...」來彌補，但我不知道如何處理STDIN。

Perl腳本本身能夠讀取STDIN中的POST數據。我也嘗試生成一個測試Perl腳本而不是Java應用程序，並且也沒有得到父腳本的STDIN。

從描述判斷，從Apache2 :: SubProcess的spawn_proc_prog可以做到這一點（即將POST數據作爲STDIN傳遞給子進程並取回子進程的輸出），但它似乎不工作我運行任何東西，但另一個Perl腳本。

有什麼辦法讓子進程繼承父腳本的STDIN嗎？我可以在Perl腳本中讀取流並將其內容作爲命令行參數傳遞，但我認爲這將成爲命令行長度限制的主題，有時可能會有很多數據（如圖片），所以我真的想弄清楚如何繼承流。

Answer 1

哇，我希望這是來自客戶端的低容量負載。在mod_perl中，stdin綁定到客戶端的套接字句柄，並與stdout相同。因此，要將STDOUT設置爲java進程，需要將* STDOUT設置爲Java服務器的套接字句柄，或者在您的情況下，因爲您正在打開進程，請執行select STDOUT並可能通過設置$ |來使其無緩衝。另外，當您想要將數據流式傳輸回客戶端時，您需要直接寫入客戶端的套接字句柄或將STDOUT重置爲其原始值。