$SIG{__DIE__} = $SIG{__WARN__} = \&handler_fatal;
sub handler_fatal {
open(OUTPUT, FILE_LOCATION);
print OUTPUT "@_\n";
close(OUTPUT);
}
perl中让warn和die重定向
最新推荐文章于 2019-04-24 14:37:00 发布
$SIG{__DIE__} = $SIG{__WARN__} = \&handler_fatal;
sub handler_fatal {
open(OUTPUT, FILE_LOCATION);
print OUTPUT "@_\n";
close(OUTPUT);
}