Hata denetimi, perdede hatasız olarak nasıl kullanılır?

Question

java'da olduğu gibi yakalama ve yakalama işlevselliği sağlayan modülün Error olduğunu buldum. Ama geri dönen istisnayı nasıl yazdıracağınız konusunda kafam karıştı.

aşağıdaki

try { 
    // do something that will fail! 

} catch (Error e) { 
    // Print out the exception that occurred 
    System.out.println(e.getMessage()); 
} 

nasıl yığın izleme hatasının baskı alabilirim nasıl anlamak istiyorum?

Answer 1

Sen pitfalls with older perls bir dizi önlemeye yardımcı olur Try::Tiny kullanarak kapalı muhtemelen daha iyi. Eğer deneyin :: Minik biraz daha güçlü bir şey istiyorsanız

use Try::Tiny; 

try { 
     die "foo"; 
} catch { 
     warn "caught error: $_"; 
}; 

Answer 2

Son ben Error kullanımdan kaldırıldı, kontrol etti. Ama burada o modül olmadan bunu yapacağını nasıl:

eval { 
    die "Oops!"; 
    1; 
} or do { 
    my $e = $@; 
    print("Something went wrong: $e\n"); 
}; 

Temelde, yerine throw ait eval yerine try, die kullanın ve $@ yılında istisna arayın. eval blok sonunda gerçek değeri 5.14 daha eski, detaylar için P::C::P::ErrorHandling::RequireCheckingReturnValueOfEval bkz Perl sürümlerinde tekrar kullanılmadan önce istemeden değiştirmesini $@ önlemek için bir deyim parçasıdır. Örneğin, bu kod bu kusurdan muzdarip.

# BAD, DO NOT USE WITH PERLS OLDER THAN 5.14 
eval { 
    die "Oops!"; 
}; 
if (my $e = $@) { 
    print("Something went wrong: $e\n"); 
} 
# BAD, DO NOT USE WITH PERLS OLDER THAN 5.14 

---

Ama başarısız olduğunda birçok Perl işlemleri istisnaları yükseltmeyin dikkat ; Sadece bir hata kodu döndürürler. Bu davranış, yerleşik ve standart modüller için autodie aracılığıyla değiştirilebilir. Eğer autodie kullanıyorsanız, o zaman try/catch yapmanın standart yol (düz autodie perldoc dışında) şudur:

use feature qw(switch); 

eval { 
    use autodie; 

    open(my $fh, '<', $some_file); 

    my @records = <$fh>; 

    # Do things with @records... 

    close($fh); 

}; 

given ($@) { 
    when (undef) { say "No error";     } 
    when ('open') { say "Error from open";    } 
    when (':io') { say "Non-open, IO error.";   } 
    when (':all') { say "All other autodie errors." } 
    default  { say "Not an autodie error at all." } 
} 

bir stacktrace almak için, Carp bak.

Answer 3

, sen CPAN içinde TryCatch modülü bakarak denemek isteyebilirsiniz.