使用带有perlcritic的IPC :: Open3

概述我想在子进程中压缩输出并只读取stderr. perlfaq8建议做以下事项： # To capture a program's STDERR, but discard its STDOUT:use IPC::Open3;use File::Spec;use Symbol qw(gensym);open(NULL, ">", File::Spec->devnull);my $pid = 我想在子进程中压缩输出并只读取stderr. perlfaq8建议做以下事项：

# To capture a program's STDERR,but discard its STDOUT:use IPC::Open3;use file::Spec;use Symbol qw(gensym);open(NulL,">",file::Spec->devnull);my $pID = open3(gensym,">&NulL",\*PH,"cmd");while( <PH> ) { }waitpID($pID,0);

但随后,perlcritic在using bareword file handles辩论.

我唯一可以设计的是在STDOUT上选择新打开的描述符到/ dev / null,如下所示：

# To capture a program's STDERR,but discard its STDOUT:use IPC::Open3;use file::Spec;use Symbol qw(gensym);open my $null,file::Spec->devnull;my $old_stdout = select( $null );my $pID = open3(gensym,">&STDOUT","cmd");select( $old_stdout );while( <PH> ) { }waitpID($pID,0);

但是,perlcritic并不喜欢using of select.
有更优雅的解决方案吗？

解决方法 最小的改变就是通过将NulL更改为* NulL来使open中的NulL不再是一个裸字.

使用这种形式的句柄通常被认为是不好的形式(因为它们是全局变量,尽管你可以通过对它们应用local来使它们更不全局化).因此我建议将其更改为使用我的变量来处理所有句柄.它看起来像你丢弃stdin文件句柄,所以也可以传递null文件句柄(注意我在读写模式下打开它)

use strict;use warnings;use IPC::Open3;use file::Spec;use Symbol qw(gensym);open(my $null,'+>',file::Spec->devnull);my $childErr = gensym;my $pID = open3($null,$null,$childErr,"cmd");while(<$childErr>) { }waitpID($pID,0);

总结

以上是内存溢出为你收集整理的使用带有perlcritic的IPC :: Open3全部内容，希望文章能够帮你解决使用带有perlcritic的IPC :: Open3所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。