¿Cuáles son los inconvenientes más comunes al usar la evaluación de Perl?

Question

¿Cuáles son los escollos comunes asociados con eval de Perl, que pueden hacer que elija utilizar un módulo como Try::Tiny?

Answer 1

de Perl viene en dos sabores, eval cadena y el bloque eval. La evaluación de cadena invoca al compilador para ejecutar el código fuente. La evaluación de bloque rodea el código ya compilado en un contenedor que detectará la excepción die. (cadena evalúa captura la excepción die también, así como cualquier error de compilación).

Try :: Tiny solo se aplica al formulario de bloqueo de eval, pero lo siguiente se aplica a ambos formularios.

Cada vez que llame al eval, cambiará el valor de $@. Será '' si la evaluación tuvo éxito o el error fue capturado por la evaluación.

Esto significa que cada vez que llame a una evaluación, borrará cualquier mensaje de error anterior. Try::Tiny localiza la variable $@ para usted, de modo que una evaluación exitosa no borre el mensaje de una evaluación fallida anterior.

La otra trampa proviene del uso de $@ como el control para determinar si la evaluación fue exitosa. Un patrón común es:

eval {...}; 
if ($@) { 
    # deal with error here 
} 

Esto se basa en dos supuestos, primero que todo mensaje de error $@ podría contener es un valor verdadero (por lo general es cierto), y que no existe un código entre el bloque eval y la sentencia if.

Visualmente, por supuesto, esto último es cierto, pero si el bloque eval crea un objeto, y ese objeto queda fuera del alcance después de la evaluación, se llamará al método DESTROY del objeto antes de la instrucción if. Si DESTROY pasa a llamar a eval sin localizar $@ y tiene éxito, entonces cuando se ejecuta su instrucción if, se borrará la variable $@.

La solución a estos problemas es:

my $return = do { 
    local $@; 
    my $ret; 
    eval {$ret = this_could_fail(); 1} or die "eval failed: $@"; 
    $ret 
}; 

romper esa línea separados por línea, el local $@ crea un nuevo $@ para el bloque do que impide clobbering valores anteriores. my $ret será el valor de retorno del código evaluado. En el bloque eval, se asigna $ret, y luego el bloque devuelve 1. De esta forma, pase lo que pase, si la evaluación tiene éxito, se devolverá verdadera, y si falla devolverá falsa. Depende de usted qué hacer en caso de falla. El código anterior simplemente muere, pero puede usar fácilmente el valor de retorno del bloque eval para decidir ejecutar otro código.

Dado que el conjuro anterior es un poco tedioso, se vuelve propenso a errores.El uso de un módulo como Try::Tiny lo aísla de esos posibles errores, a costa de unas pocas llamadas a función más por evaluación. Es importante saber cómo usar eval correctamente, porque Try::Tiny no lo ayudará si tiene que usar una evaluación de cadena.

Answer 2

Los problemas se explican en el Try::Tiny documentation. En pocas palabras, ellos son: eval

• Clobbering $@
• Localizing $@ silently masks errors
• $@ might not be a true value

Answer 3

Además de las respuestas anteriores, yo añadiría ...

• eval se ve afectada por la acción causando $SIG{__DIE__} manejador mundial a distancia.
• Es fácil para un principiante confundir eval BLOCK y eval STRING, ya que parecen hacer lo mismo, pero uno es un agujero de seguridad.

Try :: Tiny tiene sus propios escollos, el más grande es que si bien se ve como un bloque, en realidad es una llamada de subrutina. Eso significa esto:

eval { 
    ...blah blah... 
    return $foo; 
}; 

y esto:

try { 
    ...blah blah... 
    return $foo; 
}; 

no hacen lo mismo. Estos se presentan en el CAVEATS section of the Try::Tiny docs. Dicho esto, lo recomendaría más de eval.

Answer 4

El uso de la función eval en X11 aún podría no mantenerse activo.

El código es como

eval {  
    @win_arrays = GetWindowsFromPid($pid); 
}; 

El guión será retirado

X Error de solicitudes con error: ...