Perlcritic – 两个参数“开放”错误

我有一个脚本,我试图使用perlcritic来贬低不良做法.

我有一行如下:

open(my($FREESPCHK),$cmdline ) || &zdie($MSG_PAsstHRU,"Error checking free space of file system.");

这给出了这个错误
 在xxx行x列使用双参数“open”.参见PBP第207页. (严重程度:5)

关于如何修复它的任何想法?

解决方法

要使Perl Critic闭嘴,但根本没有真正的好处,只需将代码修改为:

open(my $PIPE_FROM_FREESPCHK,"-|",$cmdline)
    || zdie($MSG_PAsstHRU,"Error checking free space of file system.");

但请注意,从更明显的角度来看,这绝对没有任何好处:

open(my $PIPE_FROM_FREESPCHK,"$cmdline |")
    || zdie($MSG_PAsstHRU,"Error checking free space of file system.");

因为你没有直接调用exec来分离你的标记.这看起来更像是这样的:

open(my $PIPE_FROM_FREESPCHK,$cmd_name,@cmd_args)
    || zdie($MSG_PAsstHRU,"Error checking free space of file system.");

问题是你是在运行shell命令还是只是执行某些操作.如果您的免费支票类似于df. 2> / dev / null | awk ….,然后你需要完整的shell.如果它只是df,那么你不会.

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...