perl - 如何摆脱 Perl 中的 STDERR

Question

我在 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

Answer 1

虽然其他答案关于您提出的确切技术问题是正确的，但您还应该考虑不要在 Perl 中编写有效的 shell 脚本。

您应该使用 Perl 本地方法来获取文件列表(例如 glob() 或 File::Find )而不是调用反引号 ls .