エラー発生時に自動的に死亡するようにする

Perlのバージョン5.10以降からは「use autodie」を付けることでファイルIO等、エラーが発生した時に自動的に死亡するようにすることができるようになりました。

従来

---

open $IN, "<:utf8", $ARGV[0] or die "Can't open file $!"; # ファイルがオープン出来なければ死亡することを明示

---

上記ではオープンのたびに正常にオープンできたかチェックし、エラーなら死亡するようにしています。


新しいバージョン

---

use autodie;

open $IN, "<:utf8", $ARGV[0]; # もうエラーについて書かなくても良い！

---

当然、死亡理由等、必要な情報を吐き出して死亡してくれます。