7

PHP 的proc_open手册指出：

文件描述符编号不限于 0、1 和 2 - 您可以指定任何有效的文件描述符编号，并将其传递给子进程。这允许您的脚本与作为“协同进程”运行的其他脚本进行互操作。特别是，这对于以更安全的方式将密码短语传递给 PGP、GPG 和 openssl 等程序很有用。它对于读取那些程序在辅助文件描述符上提供的状态信息也很有用。

发生了什么： 我在基于 PHP 的 Web 应用程序中调用 Perl 脚本并在调用中传递参数。我以后不需要向脚本发送数据。通过标准输出 [1]，我从我在 PHP 应用程序中使用的 Perl 脚本 json_encoded 数据中接收到这些数据。

我想补充 的是：Perl 脚本正在通过网站收集信息，具体取决于在其初始调用中传递的参数。我想向 PHP 应用程序发送回一个文本字符串，我可以用它来显示为一种进度条。

我认为我应该怎么做：我希望（每 1-2 秒）轮询为该“进度”更新设置的频道。我会使用 Javascript / jQuery 写入一个 html div 容器供用户查看。我认为我不应该将“进度”通道与更关键的“json_encode（数据）”通道混合，因为我需要破译标准输出流。（这个想法合乎逻辑、实用吗？）

我的主要问题： 您如何使用其他“文件描述符”？我会将附加通道的设置想象为简单明了，例如下面的 3 => ...：

$tunnels = array(   
   0 => array('pipe', 'r'),     
   1 => array('pipe', 'w'),    
   2 => array('pipe', 'w'),    
   3 => array('pipe', 'w')        
);

$io = array();
$resource = proc_open("perl file/tomy/perl/code.pl $param1 $param2 $param3", $tunnels, $io);

if(!is_resource($resource)) {
    $error = "No Resource";
}

fclose($io[0]);

$perlOutput = stream_get_contents($io[1]);
$output = json_decode($perlOutput);

$errors = stream_get_contents($io[2]);
print "$errors<p>";

fclose($io[1]);
fclose($io[2]);

$result = proc_close($resource);

if($result != 0) {
    echo "you returned a $result result on proc_close";
}

但是，在 Perl 脚本中，我只是像这样写到标准输出：

my $json_terms = encode_json(\@terms);
print $json_terms;

如果我对设置附加通道的理解是正确的（上面是 3 => ...），那么我将如何在 Perl 脚本中写入它？

谢谢

4

2 回答 2

2

您打开一个新的文件句柄并将其复制到文件描述符 3：

open STD3, '>&3';
print STDERR "foo\n";
print STD3   "bar\n";

$ perl script.pl 2> file2 3> file3
$ cat file2
foo
$ cat file3
bar

编辑：根据 Greg Bacon 的评论，open STD3, '>&=', 3或open STD3, '>&=3'直接打开文件描述符，如 C 的fdopen调用，避免dup调用并为您保存文件描述符。

于 2012-04-24T20:16:58.240 回答
2

假设您要监视一个 hello-world 程序的进度，其中每个步骤都是写入指定文件描述符的一个点。

#! /usr/bin/env perl

use warnings;
use strict;

die "Usage: $0 progress-fd\n" unless @ARGV == 1;

my $fd = shift;
open my $progress, ">&=", $fd or die "$0: dup $fd: $!";

# disable buffering on both handles
for ($progress, *STDOUT) {
  select $_;
  $| = 1;
}

my $output = "Hello, world!\n";

while ($output =~ s/^(.)(.*)\z/$2/s) {
  my $next = $1;
  print $next;
  print $progress ".";
  sleep 1;
}

使用 bash 语法打开 fd 3/tmp/progress并将其连接到程序是

$ (exec 3>/tmp/progress; ./hello-world 3)
你好世界！

$猫/tmp/进度
.....................

（看直播更有趣。）

要在终端上看到它们出现时的点，您可以打开进度描述符并将其有效地dup2显示到标准错误上——再次使用 bash 语法，实时更有趣。

$ (exec 17>/dev/null; exec 17>&2; ./hello-world 17)
你好，。。世界！。
.

你当然可以跳过额外的步骤

$ (exec 17>&2; ./hello-world 17)

以获得相同的效果。

如果您的 Perl 程序因错误而死掉，例如

$ ./你好世界 333
./hello-world: dup 333: ./hello-world 第 9 行的文件描述符错误。

那么 PHP 端管道的写入端可能设置了 close-on-exec 标志。

于 2012-04-24T20:51:11.633 回答