¿Cómo usar correctamente la captura de prueba en Perl que proporciona error.pm?

Question

He encontrado que existe el módulo Error que proporciona funcionalidad try and catch como en java. Pero estoy confundido sobre cómo puede imprimir la excepción que devuelve.

me gustaría entender cómo hacer la siguiente

try { 
    // do something that will fail! 

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

¿Cómo consigo la impresión del error con el seguimiento de la pila?

Answer 1

Probablemente sea mejor que use Try::Tiny que le ayudará a evitar un número de pitfalls with older perls.

use Try::Tiny; 

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

Answer 2

Última revisión, Error ha quedado obsoleto. Pero existen algunas cosas que lo haría sin ese módulo:

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

Básicamente, utilice eval en lugar de try, die en lugar de throw, y buscar la excepción en $@. El valor verdadero al final del bloque eval es parte de una expresión idiomática para evitar que $@ cambie involuntariamente antes de volver a usarse en versiones Perl anteriores a 5.14, consulte P::C::P::ErrorHandling::RequireCheckingReturnValueOfEval para obtener más información. Por ejemplo, este código adolece de este defecto.

# 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 

---

Pero tenga en cuenta que muchas de las operaciones de Perl no generan excepciones cuando fallan; simplemente devuelven un código de error. Este comportamiento se puede modificar mediante autodie para módulos internos y módulos estándar. Si está utilizando autodie, entonces la forma estándar de hacer try/catch es esto (directamente de la perldoc autodie):

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

Para conseguir un StackTrace, mira a Carp.

Answer 3

Si quieres algo un poco más potente que Trate :: Tiny, es posible que desee intente buscar en el módulo TryCatch en CPAN.