¿Cuál es la diferencia entre los operadores de cortocircuito de Perl (o, y) y (||, &&)?

Question

¿Cuál de estas subrutinas no es como la otra?

sub or1 { 
    my ($a,$b) = @_; 
    return $a || $b; 
} 

sub or2 { 
    my ($a,$b) = @_; 
    $a || $b; 
} 

sub or3 { 
    my ($a,$b) = @_; 
    return $a or $b; 
} 

sub or4 { 
    my ($a,$b) = @_; 
    $a or $b; 
} 

vine a Perl 5 de C y Perl 4 y siempre usa || hasta que vi más secuencias de comandos utilizando or y me gustaba cómo se veía. Pero como muestra el cuestionario anterior, no es sin sus peligros para los incautos. Para las personas que usan ambos constructos o que usan una gran cantidad de or, ¿qué reglas básicas usas para decidir qué constructo utilizar y para asegurarte de que el código está haciendo lo que crees que está haciendo?

Answer 1

Debido a la baja precedencia del operador 'o', or3 analiza de la siguiente manera:

sub or3 { 
    my ($a,$b) = @_; 
    (return $a) or $b; 
} 

El consejo habitual es utilizar sólo el 'o' operador para el flujo de control:

@info = stat($file) or die; 

para más discusión, véase el manual de Perl: http://perldoc.perl.org/perlop.html#Logical-or-and-Exclusive-Or

Answer 2

Supongo que or3 es diferente.

No soy realmente un tipo Perl, pero parece que 1, 2 y 4 devuelven booleanos explícitamente. Supongo que 3 tiene efectos secundarios, como devolver $ a o algo así de loco.

mira hacia abajo

Hey, yo tenía razón.

Answer 3

Ambas versiones están en cortocircuito en Perl, pero las formas 'textuales' ('y' y 'o') tienen una precedencia menor que sus equivalentes de estilo C.

http://www.sdsc.edu/~moreland/courses/IntroPerl/docs/manual/pod/perlop.html#Logical_And

Answer 4

En Perl 5, "o" y "y" tener precedencia menor que "||" y "& &". Echa un vistazo a este hilo PerlMonks para más información:

http://www.perlmonks.org/?node_id=155804

Answer 5

Qué reglas de oro que utiliza para decidir qué constructo de usar y asegúrese de que el código está haciendo lo que creo que está haciendo

Los operator precedence reglas.

|| se une fuertemente, or se une débilmente. No hay una "regla de oro".

Si usted debe tener una regla de oro, ¿qué hay de "sólo el uso or cuando no hay valor-I":

or:

open my $fh, '>', 'file' or die "Failed to open file: $!" 

||:

my $greeting = greet() || $fallback || 'OH HAI'; 

Estoy de acuerdo con MJD sobre evitar parientes; si no conoce las reglas, búsquelas ...pero no escriba (open(my $fh, '>', 'file')) or (die("Failed to open file: $!")) "solo para estar seguro", por favor.