Respuesta.

Historia de la pregunta:

En Perl, desde el principio se han usado activamente tanto variables globales como locales. Más tarde, se introdujeron variables léxicas mediante la palabra clave my. Esto dio a los desarrolladores herramientas convenientes para controlar el ámbito de las variables y evitar conflictos de nombres.

Problema:

Los errores a menudo ocurren debido a la confusión entre variables globales (variables de paquete) y variables léxicas, el uso incorrecto de local y my, así como por la sustitución de valores globales en tiempo de ejecución del código. En proyectos grandes, la gestión descuidada de los ámbitos puede dar lugar a errores difíciles de rastrear.

Solución:

Utiliza my para declarar variables con ámbito léxico (alcance dentro del bloque en el que se declaran), y las variables globales solo cuando sea necesario. Para la sustitución temporal del valor de una variable global se utiliza local, que guarda el valor inicial hasta que finaliza el bloque. Para variables de paquete, se usa our. Comprender correctamente estas diferencias permite evitar efectos secundarios.

Ejemplo de código:

our $global = 10;
sub demo {
    my $lexical = 20;
    local $global = 99; # cambio temporal de global
    print "Dentro de demo: $global, $lexical
";
}
demo();
print "Fuera de demo: $global
";

Características clave:

my crea variables visibles solo dentro del bloque actual
local cambia temporalmente las variables globales
our declara variables de paquete para ser utilizadas fuera del archivo actual

Preguntas trampa.

¿Puede una variable declarada con my ser accesible fuera del bloque actual?

No. La variable léxica my sólo es visible dentro del bloque donde se creó; fuera de él, no existe.

¿Cuál es la diferencia entre local y our?

local cambia temporalmente el valor de una variable global durante el bloque, mientras que our se usa para declarar una variable que es visible en todo el paquete y no crea copias del valor.

Ejemplo de código:

our $var = 1; # variable global de paquete
sub test {
    local $var = 3; # reemplaza temporalmente $var por 3
    print $var;
}

¿Es posible usar my dentro de eval para que la variable sea visible fuera de eval?

No. El ámbito de las variables declaradas con my dentro de eval está limitado solo a ese bloque eval.

Errores típicos y anti-patrones

Declarar variables con el mismo nombre en diferentes ámbitos
Usar variables globales sin necesidad
Confusión entre my y local, malentendidos sobre la acción de estas palabras clave

Ejemplo de la vida real

** Caso negativo

En un gran proyecto de Perl, se usaron variables globales por doquier sin indicar explícitamente el ámbito (sin my y our). Un día, un nuevo desarrollador sobrescribió accidentalmente una de estas variables en un módulo, lo que llevó a resultados impredecibles en producción.

Ventajas:

Las variables están disponibles en todas partes

Desventajas:

Difícil rastrear la causa de los errores
Mantenimiento complicado del código
Posibles efectos secundarios inesperados

** Caso positivo

En un nuevo proyecto, todas las variables se declararon a través de my dentro de funciones y bloques, y las globales se declararon con our solo cuando era necesario, con una documentación clara.