Perlについての質問箱 33箱目
■ このスレッドは過去ログ倉庫に格納されています
0833デフォルトの名無しさん
2008/01/01(火) 20:37:04ドキュメントのsetErrorHandler()を参照。
$oldErrorHandler = Archive::Zip::setErrorHandler(\&myErrorHandler);
という感じでエラーハンドラを設定できる。デフォルトのエラーハンドラは\&Carp::carp。
my $old = Achive::Zip::setErrorHandler(sub{ });
$zip->read($zipfile);
Archive::Zip::setErrorHandler($old);
とするなりsetErrorHandler(\&Carp::croak)とでもしてアボートさせるなりすればいい。
■ このスレッドは過去ログ倉庫に格納されています