我怎样才能摆脱Perl中的STDERR

我在Perl中使用了一些系统命令.

在下面的例子中,我获得如下输出：

ls: import-log.*: No such file or directory

ls: error-log.*: No such file or directory

No specified files found for deletion

我的代码：

sub monthoryear() 
{

  @importlog = `ls -al import-log.*`;

  @errorlog = `ls -al error-log.*`;

}

即使没有文件,我也不希望在输出中看到以下内容.

ls: import-log.*: No such file or directory &

ls: error-log.*: No such file or directory

解决方法

您可以在subshel​​l命令中添加stderr重定向：

@importlog = `ls -al import-log.* 2>/dev/null`;
@errorlog = `ls -al error-log.* 2>/dev/null`;