Top image

Perl Monk

主にPerlとRaspberryPiの個人的技術研鑽

Perl小ネタ:エラーシグナルを取得する

2020/09/20 20:00
category:Perl

独立したシステムで、エラーも別処理として参照したりするときにたまに使います。

BEGIN {
	$SIG{__WARN__} = sub {
		print $_[0];
	};
}
warn "make warn";

ワーニングのシグナルを受けると、これが実行されるというところまでは何となくわかる。

そしてエラー内容が@_に格納されるらしいが、$_[1]以降にデータが入る事はあるのだろうか。。

$_[0]がなかった場合、warningが発生してさらに呼び出されて無限ループしないか・・・!?って思ったんですが、この中で発生したwarningは除外ぽいです。