كيف يمكنني التعامل مع كل الأخطاء اشتعلت وuncaught في روتين بيرل؟
-
22-08-2019 - |
سؤال
وهذا هو متابعة ل<لأ href = "https://stackoverflow.com/questions/451227/how-can-i-get-around-a-die-call-in-a-perl-library-i -cant-تعديل ">" كيف يمكنني الحصول على حول "أموت" استدعاء في مكتبة بيرل لا أستطيع تعديل؟ ".
ولدي روتين الذي يستدعي مكتبة-أي-تحطم-في بعض الأحيان عدة مرات. بدلا من الأريكة كل مكالمة في هذا روتين مع وحدة التقييم {}، وأنا مجرد السماح لها أن تموت، واستخدام وحدة التقييم {} على المستوى الذي يدعو بلدي روتين:
my $status=eval{function($param);};
unless($status){print $@; next;}; # print error and go to
# next file if function() fails
ولكن هناك حالات الخطأ التي أستطيع ولا يمسك في وظيفة (). ما هي الطريقة الأكثر ملائمة / أنيقة لتصميم خطأ لافتة في روتين والروتين يدعو بحيث أحصل على السلوك الصحيح للأخطاء وقعوا وuncaught على حد سواء؟
المحلول
وحدة التقييم كتلة يمكن أن تتداخل:
sub function {
eval {
die "error that can be handled\n";
1;
} or do {
#propagate the error if it isn't the one we expect
die $@ unless $@ eq "error that can be handled\n";
#handle the error
};
die "uncaught error";
}
eval { function(); 1 } or do {
warn "caught error $@";
};
نصائح أخرى
ولست متأكدا تماما ما تريد القيام به، ولكن أعتقد أنك يمكن أن تفعل ذلك مع المعالج.
$SIG{__DIE__} = sub { print $@ } ;
eval{ function($param); 1 } or next;