त्रुटि.pm प्रदान करता है कि perl में प्रयास पकड़ का सही ढंग से उपयोग कैसे करें?

Question

मुझे पता चला है कि मॉड्यूल Error है जो जावा में प्रयास करने और पकड़ने की कार्यक्षमता प्रदान करता है। लेकिन मैं उलझन में हूं कि आप रिटर्न को अपवाद कैसे प्रिंट कर सकते हैं।

मैं कैसे निम्नलिखित

try { 
    // do something that will fail! 

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

मैं स्टैक ट्रेस के साथ त्रुटि के प्रिंट कैसे मिलता है ऐसा करने के लिए समझने के लिए चाहते हैं?

Answer 1

आप शायद Try::Tiny का उपयोग कर बेहतर हैं जो आपको pitfalls with older perls से बचने में मदद करेगा।

use Try::Tiny; 

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

Answer 2

अंतिम बार मैंने चेक किया, Error बहिष्कृत किया गया था। लेकिन यहाँ आप इसे कैसे कि मॉड्यूल के बिना करना होगा है:

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

असल में, eval बजाय try, diethrow के बजाय का उपयोग करें, और $@ में अपवाद के लिए लग रही है। Eval ब्लॉक के अंत में सही मान $@ को अनजाने में बदलने से रोकने के लिए एक मुहावरे का हिस्सा है, जिसका उपयोग 5.14 से पुराने पर्ल संस्करणों में फिर से किया जाता है, विवरण के लिए P::C::P::ErrorHandling::RequireCheckingReturnValueOfEval देखें। उदाहरण के लिए, यह कोड इस दोष से पीड़ित है।

# 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 

---

लेकिन ध्यान दें कि कई पर्ल संचालन अपवाद जब वे असफल न बढ़ाएं; वे बस एक त्रुटि कोड लौटते हैं। बिल्टिन और मानक मॉड्यूल के लिए इस व्यवहार को autodie के माध्यम से बदला जा सकता है। आप autodie उपयोग कर रहे हैं, तो ट्राई/कैच करने का मानक तरीका यह है (सीधे autodie perldoc में से):

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." } 
} 

एक स्टैकट्रेस हो रही के लिए, Carp को देखो।

Answer 3

आप कुछ से प्रयास करें :: छोटे और अधिक शक्तिशाली चाहते हैं, आप CPAN में TryCatch मॉड्यूल को देखने का प्रयास कर सकते हैं।