Suppressing error outputs 1

[teser]

I am running a script on my Solaris 7 OS and want to eliminate error outputs the same way Unix uses the 2> /dev/nul.

HOw can I suppress error outputs in Perl??

 

[justice41]

The quickest way to do this is to redirect stderr to /dev/null near the top of the script. This will direct any runtime stderr output from die() or warn() to /dev/null.

open STDERR, "/dev/null" or die "Cannot redirect stderr: $!";

If you are stuck on never receiving a single error message from your script then you can wrap the above statement in a BEGIN block.

BEGIN {
    open STDERR, "/dev/null" or die "Cannot redirect stderr: $!";
}

This will swallow up all runtime errors and any compile time errors that are generated after the BEGIN phase (ie use()ing a module that doesn't exist will still generate and error to the terminal). This second option isn't a good way to go because if there are any errors in the script it will just quit silently.

jaa

 

[teser]

Thanks!