如何讀取STDIN並將內容寫回到Perl中的STDIN？

Question

我必須點亮內部軟件產品中的一些核心組件。由於其STDIN的真的討厭處理我必須：

1. 閱讀STDIN和備份的原始
2. 解析它
3. 寫RAW回STDIN
4. 讓下游系統處理STDIN

不幸的是我不允許修改任何遺留的代碼，所以我必須點亮它。

我的第一個工作不嘗試：

BEGIN { 
    my $stdin_raw = join '', <STDIN>; 
    use IO::Handle; 
    my $stdin_io1 = IO::Handle->new(); 
    $stdin_io1->printflush($stdin_raw); 
    my $stdin_io2 = IO::Handle->new(); 
    $stdin_io2->printflush($stdin_raw); 
    STDIN->fdopen($stdin_io1, 'r'); 
    require CGI; 
    warn CGI::param('PARAM1'); 
    warn CGI::param('PARAM2'); 
    STDIN->fdopen($stdin_io2, 'r'); 
} 

它能夠在第一線，但通宵CGI也不下游系統都可以從STDIN我（試圖）任何輸入設置上面列出來讀取STDIN。

因此：如何讀取STDIN並將內容寫回到Perl中的STDIN？

該應用程序在CGI（網絡服務器）條件下運行。 STDIN處理Web請求的POST數據。

Answer 1

閱讀，補充，閱讀STDIN是不可能的。

Answer 2

如何open(STDIN, '<', \$stdin_raw)

---

順便說一句，

my $stdin_raw = join '', <STDIN>; 

通常被寫成

my $stdin_raw; { local $/; $stdin_raw = <STDIN>; } 

也許更有效了。