例外処理をきちんと行う。
eval{
#ここに、例外発生する可能性のある処理を記述する。
!system('mkdir /root') or die;
my_subroutine();#サブルーチン中で例外が起こったらdieする
};
if($@ ne ''){#例外を捕捉する。
die "error in eval:$@\n";
}
eval{
#ここに、例外発生する可能性のある処理を記述する。
!system('mkdir /root') or die;
my_subroutine();#サブルーチン中で例外が起こったらdieする
};
if($@ ne ''){#例外を捕捉する。
die "error in eval:$@\n";
}