Perl小ネタ:エラーシグナルを取得する
2020/09/20 20:00
category:Perl
独立したシステムで、エラーも別処理として参照したりするときにたまに使います。
BEGIN {
$SIG{__WARN__} = sub {
print $_[0];
};
}
warn "make warn";
ワーニングのシグナルを受けると、これが実行されるというところまでは何となくわかる。
そしてエラー内容が@_に格納されるらしいが、$_[1]以降にデータが入る事はあるのだろうか。。
$_[0]がなかった場合、warningが発生してさらに呼び出されて無限ループしないか・・・!?って思ったんですが、この中で発生したwarningは除外ぽいです。