¿Cómo es "mi" más rápido que "local" en Perl?

Question

Citando PerlMonks: The difference between my and local,

Pero en la vida real, que funciona prácticamente de la misma? Sí. Más o menos Entonces, ¿cuándo deberías usarlos?

Usar mi cuando se puede (que es más rápido que el local) ...

que conoce el léxico vs diferencia de alcance dinámico entre my y local, como se discutió en this SO thread, pero no estoy seguro por qué my es "más rápido".

¿Qué queremos decir exactamente cuando decimos que una variable my es más rápida que una variable local en Perl?

Answer 1

El uso de local en una variable significa que su estado anterior debe ser empujado a una pila en algún lugar y restaurado de nuevo cuando se sale del alcance local. Al usar my en una variable, simplemente se crea una variable completamente nueva que sombrea la variable anterior con el mismo nombre; la anterior está completamente intacta y no necesita guardarse en ninguna parte. Simplemente está al acecho cuando se sale del alcance local y es visible de nuevo.

Empujar/hacer estallar a una pila requiere recursos; hay mucho trabajo bajo el capó para garantizar que esto funcione correctamente. (Considere casos como una excepción lanzada en el ámbito local o un controlador de señal que se está ejecutando. Estoy seguro de que puede pensar en más.)

Además de ser más eficiente, usar my es mucho más lógico. Como programador que introduce una variable local $ foo, no tiene que preocuparse por la razón semántica de la versión anterior de $ foo, qué datos pueden estar ya en ella, o de hecho si fue a $ foo ya creado. Si en algún momento de la ruta se elimina la declaración anterior de $ foo, su código local $foo se romperá, pero my $foo estará perfectamente satisfecho. Sea un buen programador y mantenga su código en piezas bien encapsuladas, lo que significa usar el alcance léxico tanto como pueda. Es bastante posible escribir una aplicación grande y nunca necesitar variables del paquete/alcance global en absoluto, especialmente cuando se usan clases OO bien diseñadas.

Answer 2

local es probablemente más lento debido a la necesidad de guardar el valor anterior, pero la velocidad de local vs my no debe entrar en la discusión en absoluto. El ahorro de velocidad es minúsculo:

  Rate local my 
local 7557305/s -- -2% 
my 7699334/s 2% -- 

y las características de ambos son radicalmente diferentes. Los resultados anteriores provienen del siguiente punto de referencia:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Benchmark; 

our $x; 

my %subs = (
    local => sub { 
     local $x = 42; 
     return $x; 
    }, 
    my => sub { 
     my $x = 42; 
     return $x; 
    } 
); 

for my $sub (keys %subs) { 
    print "$sub: ", $subs{$sub}(), "\n"; 
} 

Benchmark::cmpthese -1, \%subs;