Perlでの例外処理について - tech tech -テクテクブログ-

Perlで例外処理をしたい場合は、try-catchではなくevalを使うんですね。
（モジュールを使えばtry-catchも使えるそうですが）

初めて見た時、「evalってなんだろう？」と悩んだので残しておきます。

evalでくくって（try）、ifで例外処理（catch）

#usr/bin/perl
use strict;
use warnings;

eval {
    die "this is exception"; # 強制的に例外発生
};
if ($@) {
    print "ERROR:$@"; # 例外内容を表示
}

ERROR:this is exception at eval.pl line 6.

evalを使う際はセミコロン(;)を忘れないよう注意する。