带有标量目标和 IPC::Open3 的 Perl 文件句柄

Question

我的任务是从 perl 启动一个程序，并保持对启动任务的控制流，以及在标量变量中捕获程序的输出。该脚本应仅使用 perl 基础包中提供的 perl 模块。

我的第一个方法是

use POSIX;
use IPC::Open3;
use strict;

my ($invar, $outvar, $errvar, $in, $out, $err, $pid, $pidr);
open($in, "<",\$invar);
open($out, ">",\$outvar);
open($err, ">",\$errvar);
my $cmd = "sleep 5; echo Test; sleep 5; echo Test; sleep 5;";
$pid = open3($in, $out, $err, $cmd);
my $num = 0;
for($pidr = $pid; $pidr >= 0;)
{
  sleep(1) if ($pidr = waitpid($pid, WNOHANG)) >= 0;
  print "$num: $outvar" if $outvar;
  ++$num;
}
close($in);
close($out);
close($err);

当开始时没有任何反应。启动程序的输出不会进入$outvar。为了测试我的基本想法是否失败，我尝试了这个：

my $outvar = "";
my $out;
open($out, ">", \$outvar);
print $out "Test\n";
print "--1--\n$outvar";
print $out "Test2\n";
print "--2--\n$outvar";

按预期正确输出：

--1--
Test
--2--
Test
Test2

问题是：为什么上面的程序不能作为测试示例输出应该在$outvar的文本？

一个可行的解决方案要复杂得多（当您添加此示例中遗漏的所有安全检查时）：

use POSIX;
use IPC::Open3;
use strict;

my ($invar, $outvar, $errvar, $in, $out, $err, $pid, $pidr);
open($in, "<",\$invar);
open($out, ">",\$outvar);
open($err, ">",\$errvar);
my $cmd = "sleep 5; echo Test; sleep 5; echo Test; sleep 5;";
$pid = open3($in, $out, $err, $cmd);
my $num = 0;
for($pidr = $pid; $pidr >= 0;)
{
  sleep(1) if ($pidr = waitpid($pid, WNOHANG)) >= 0;
  my $obits; vec($obits, fileno($out), 1) = 1;
  if(select($obits, undef, undef, 0) > 0)
  {
    my $buffer;
    sysread($out, $buffer, 10240);
    print "$num: $buffer" if $buffer;
  }
  ++$num;
}
close($in);
close($out);
close($err);

它可以正确打印（第一个也应该以类似的方式打印）：

5: Test
10: Test

对于示例，我删除了大部分错误处理和 STDERR 的类似代码。

Answer 1

open($out, ">", \$outvar); 不创建系统文件句柄。你会注意到fileno($out) 是-1。一个进程不能写入另一个进程的内存，更不用说操纵它的变量，所以整个概念是有缺陷的。使用IPC::Run3 或IPC::Run；他们有效地为您实现了select 循环。 open3 对于大多数应用程序来说太低级了。

---

第二个 sn-p 有效，因为 open3 的行为就像 $in、$out 和 $err 是未打开的句柄。你可能已经完成了

$in = gensym();
$out = gensym();
$err = gensym();

但同样，您应该使用 IPC::Run3 或 IPC::Run。您的手卷版本存在一些错误，包括可能导致死锁的错误。