php - 如何将变量从 php 传递到正在运行的 perl 脚本

Question

我有一个 perl 脚本，它有一个无限循环，每次从用户那里读取一个整数并将其添加到变量 $b 中；

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

我有一个具有输入文本字段和提交按钮的 php 表单，当按下提交按钮时，我想将输入文本字段中给出的值传递给正在运行的 perl 脚本并获取 $b 变量的最后一个值在我的 php 表单中显示它。

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

score 0 · Accepted Answer

perl 和 php 都可以通过 UNIX 套接字、消息队列和 FIFO 等进行 IPC。连接到一个已经运行的进程 STDIN - 如果它存在并且是一个命名的设备/对象 - 并不是那么容易。

score 0 · Accepted Answer

你可以打开一个管道到你的 Perl 程序的一个新实例popen

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

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

fwrite($pipe, "99\n");

2 回答 2