perl：用stdin副本执行另一个程序

Question

我有一个重定向到其他Perl CGI脚本的PERL CGI脚本。将哪些脚本重定向到，取决于用“帖子”发布的数据内容。

因此，我的重定向脚本读取stdin：

read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );

检查已发布的数据，然后重定向到另一个CGI脚本：

`run /bin/anotherscript.cgi`

然后，此脚本需要原始发布的数据，因此它还读取stdin。但是到那时，它已经被阅读了，因为它已经被阅读。现在，我知道一种解决方案是将原始内容写入文件，然后将此文件用作第二个脚本的输入：

read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );

open( DATA, ">in.txt" );
print DATA $buffer;
close( DATA );

`run /bin/anotherscript.cgi < in.txt`

现在，这是在与许多用户的网站上。因此，我需要创建唯一的文件名，并确保之后一切都清理了。弄乱事物的潜力很大。

所以我想知道是否还有另一种方法？我可以将数据“将”数据推回STDIN吗？还是有一种更直接的方法将数据输送到新脚本？

Answer 1

最简单的方法：

use IPC::Run qw( run );

run [ "run", "/bin/anotherscript.cgi" ], '<', \$buf;