perl - perl IPC:Open3 最小通过 perlcritic？

Question

我正在阅读 perlcritic 文档以避免反引号并在此处使用 IPC::Open3：

http://perl-critic.stacka.to/pod/Perl/Critic/Policy/InputOutput/ProhibitBacktickOperators.html

我试图找到最不冗长的选项，它将起作用并满足 perlcritic：

#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open3 'open3'; $SIG{CHLD} = 'IGNORE';
my $cmd = 'ls';
my ($w,$r,$e); open3($w,$r,$e,$cmd);
my @o = <$r>; my @e = <$e>;
1;

但它抱怨以下错误：

Use of uninitialized value in <HANDLE> at ipc_open3.pl line 7

有任何想法吗？

编辑：好的，这就是我所拥有的。除非有办法简化它，否则我会坚持这一点：

#!/usr/bin/perl
use strict;
use warnings;
use IPC::Open3 'open3'; $SIG{CHLD} = 'IGNORE';
use Symbol 'gensym';
my $cmd = 'ls';
my ($w,$r,$e) = (undef,undef,gensym); my $p = open3($w,$r,$e,$cmd);
my @o = <$r>; my @e = <$e>;
1;

Answer 1

该页面上的建议很糟糕。IPC::Open3 是一个难以使用的低级模块。如果将批次发送到 STDERR，页面建议的代码将挂起（死锁）。

请改用IPC::Run3或IPC::Run。

例子：

run3 $cmd, undef, \my $out, \my $err;
run3 [ $prog, @args ], undef, \my $out, \my $err;
run3 [ $prog, @args ], undef, \my @out, \my @err;

Answer 2

错误参数 toIPC::Open3::open3不应未定义。使用该函数预初始化错误参数的概要：IPC::Open3Symbol::gensym

my($wtr, $rdr, $err);
use Symbol 'gensym';
$err = gensym;
$pid = open3($wtr, $rdr, $err, 'some cmd and args', 'optarg', ...);

输入和输出参数可以替换为自动生成的文件句柄，因此可以传递undef这些参数。

当然，在这里满足 perlcritic 的最简洁的选项是

my @o = `ls 2>/dev/null`   ## no critic