¿Cómo puedo localizar las variables de Perl en un marco de pila diferente?

Question

que tienen algún código generado automáticamente que escribe de manera efectiva el siguiente en un montón de lugares diferentes en algún código:

no warnings 'uninitialized'; 
local %ENV = %ENV; 
local $/ = $/; 
local @INC = @INC; 
local %INC = %INC; 
local $_ = $_; 
local $| = $|; 
local %SIG = %SIG; 
use warnings 'uninitialized'; 

Cuando el código de generación de automóviles, algunos argumentan que no es estrictamente necesario que el código sea " hermoso ", pero me gustaría sacar eso en una subrutina. Sin embargo, eso localizaría esas variables en esa subrutina. ¿Hay alguna forma de localizar esas variables en el marco de la pila de llamadas?

Actualización: En una línea similar, sería bueno poder ejecutar eval en un marco de pila más alto. Creo que Python ya tiene esto. Sería bueno si Perl también lo hiciera.

Answer 1

¿Tal vez pueda hacer que el código que utiliza esos locales se genere como cierre? Posteriormente, se podría perlguts

sub run_with_env { 
    my ($sub, @args) = @_; 
    no warnings 'uninitialized'; 
    local %ENV = %ENV; 
    local $/ = $/; 
    local @INC = @INC; 
    local %INC = %INC; 
    local $_ = $_; 
    local $| = $|; 
    local %SIG = %SIG; 
    use warnings 'uninitialized'; 
    $sub->(@args); 
} 

run_with_env(sub { 
    # do stuff here 
}); 

run_with_env(sub { 
    # do different stuff here 
}); 

Answer 2

No estoy muy familiarizado con Perl, así que perdónenme si es posible. Pero normalmente, las variables locales a un marco de pila solo están disponibles dentro de ese marco de pila. No puedes acceder a ellos desde uno más alto o más bajo (a menos que hagas alguna aritmética de puntero hacky pero nunca se garantiza que tenga éxito). Los grandes bloques de declaraciones de variables lamentablemente son algo con lo que tendrás que vivir.

QuantumPete

Answer 3

En TCL puede utilizar uplevel. En cuanto a Perl, no sé.

Answer 4

No estoy seguro de por qué QuantumPete está siendo downvoted, parece estar en lo cierto en este caso. No puede indicar local para inicializar variables en el bloque de llamadas. Su funcionalidad es especial, y la inicialización/desmontaje solo funciona en el bloque donde se ejecutó.

Hay algunos módulos experimentales como Sub::Uplevel y Devel::RunBlock que le permiten tratar de "engañar" a caller() de subrutinas o hacer un 'retorno de salto de longitud' de los valores a los marcos de pila superiores (respectivamente), pero ninguno de ellos hace nada para afectar cómo local trata las variables (lo intenté :)

Así que, por ahora, parece que tendrá que vivir con las declaraciones locales en el ámbito donde las necesita.

Answer 5

perldoc dice:

The "Alias" module implements localization of the basic types within 
    the caller's scope. People who are interested in how to localize 
    things in the containing scope should take a look there too. 

Fwiw. No he mirado lo suficiente a Alias.pm para ver qué fácil podría ser esto.

Answer 6

Perl tiene Sub::Uplevel