如何将变量从PHP传递到运行的Perl脚本

Question

我有一个perl脚本，该脚本具有无数循环，该循环读取用户的整数，并每次将其添加到变量$ b中；

$b = 0;
while ( 1 == 1 ) {
    $a = <STDIN>;
    $b = $b + $a;
    print $b + "n";
}

我有一个具有输入文本字段和提交按钮的PHP表单，在按下提交按钮时，我想将输入文本字段中给定的值传递到运行的Perl脚本，并获得该脚本的最后值$ b变量以我的php表格显示。

所以我的问题是如何在PHP和Perl之间进行这种互连？

Answer 1

您可以使用 popen

打开管道，以向Perl程序的新实例打开管道

$pipe = popen("/path/to/program.pl", "w");

然后，您可以将您的数字写入管道，而Perl代码将添加然后

fwrite($pipe, "99n");

Answer 2

Perl和PHP都可以通过UNIX插座，消息队列和FIFO进行IPC，等等。连接到已经运行的过程stdin(如果存在并且是命名设备/对象(并不容易。