回答

Perlでは、エラー処理は通常、die、warn関数およびevalブロックを使用して行われます。プログラムを正常に終了させるためには、致命的なエラーにはdieを使用し、警告にはwarn関数を使用することが推奨されます。もう一つの方法は、致命的エラーをキャッチしてその後処理するためにevalブロック演算子を使用することです。

例:

open my $fh, '<', 'file.txt' or die "ファイルを開けません: $!
";
printf $fh "こんにちは" or warn "書き込みできません: $!
";

# evalを使ったエラー処理
my $result = eval {
    risky_function();
    1;
};
unless ($result) {
    print "エラーが検出されました: $@
";
}

また、Try::TinyやErrorのようなモジュールがあり、Perlのtry/catchを実現しています。

トリックのある質問

eval {}とeval "..."の使用の違いは何ですか、またそれぞれの方法にはどのような落とし穴がありますか？

多くの人は、それらが同じであると誤解しています。eval { ... }はブロック型のtry/catchとして機能し、eval "..."は実行時に文字列をPerlコードとしてコンパイルして実行します。文字列を使用する場合、誤りを犯しやすく、SQLインジェクションやコンパイルエラーの危険にさらされる可能性があります。

違いの例:

# 文字列をPerlコードとしてコンパイルして実行
my $var = 'my $x = 2 + 2';
eval $var; # eval DIRTY!

# 安全なブロックタイプ
my $error = eval {
    die "失敗";
};
print $@ if $@;

このテーマの微妙な点を知らないための実際のエラーの例

---

ストーリー

あるプロジェクトでは、開発者がeval "コード"を使用して動的にコマンドを生成したため、実行時に到達不可能な構文エラーやデバッグの問題が発生しました。

---

ストーリー

不適切なエラーキャッチ: ローカル変数を使用したeval内で発生した例外は、$@が次の関数logの呼び出しにより消去されていたため処理されませんでした。

---

ストーリー

古いコードではtry/catchの代わりに単にdie()を使用しており、これがPerlプロセスの制御不能な終了を引き起こし、データベーストランザクションのデータ損失につながりました。