Keyboard shortcuts

Press ← or → to navigate between chapters

Press S or / to search in the book

Press ? to show this help

Press Esc to hide this help

Logging Exceptions

  • DIE
$SIG{__DIE__} = sub { logger('error', $_[0]) };

#!/usr/bin/perl 
use strict;
use warnings;

$SIG{__DIE__}  = sub { logger('error', $_[0]); };


print "Before\n";
die 'Something bad';
print "After\n";



sub logger {
    my ($level, $msg) = @_;
    if (open my $out, '>>', 'log.txt') {
        chomp $msg;
        print $out "$level - $msg\n";
    }
}