How can I get rid of the STDERR in Perl

Question

I'm using some system commands in Perl.

In the below case I was getting output as follows:

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

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

No specified files found for deletion

My code:

sub monthoryear() 
{

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

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

}

I don't want to see the following in the output even if there are no files.

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

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

Answer 1

While the other answers are correct about the exact technical question you asked, you should also consider not writing what is effectively a shell script in Perl.

You should use Perl native methods of getting file list (e.g. glob() or File::Find) instead of calling a backticked ls.

Answer 2

Redirect STDERR to the null device:

use File::Spec;
open STDERR, '>', File::Spec->devnull() or die "could not open STDERR: $!\n";