Wie kann ich Perl-Variablen in einem anderen Stapelrahmen lokalisieren?

Question

Ich habe einige automatisch generierten Code, der aus den folgenden in einer Reihe von verschiedenen Orten in einigen Code effektiv schreibt:

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

Wenn Auto-Code generieren, einige argumentieren, dass es der Code "nicht unbedingt notwendig ist, dass schön ", aber ich möchte das in eine Unterroutine herausziehen. Dies würde jedoch die Variablen in dieser Subroutine lokalisieren. Gibt es eine Möglichkeit, diese Variablen im aufrufenden Stack-Frame zu lokalisieren?

Update: In ähnlicher Weise wäre es schön, Eval in einem höheren Stack-Frame ausführen zu können. Ich denke, Python hat das schon. Es wäre schön, wenn auch Perl es wäre.

Answer 1

Vielleicht können Sie veranlassen, dass der Code, der diese Locals verwendet, als Closure generiert wird? Dann könnten Sie

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

Ich bin nicht sehr vertraut mit Perl, also vergib mir, wenn es tatsächlich möglich ist. Normalerweise sind Variablen, die für einen Stapelrahmen lokal sind, nur innerhalb dieses Stapelrahmens verfügbar. Sie können auf sie weder von einem höheren noch von einem niedrigeren zugreifen (es sei denn, Sie führen eine Hacker-Pointer-Arithmetik durch, aber das ist niemals garantiert). Große Blöcke variabler Deklarationen sind leider etwas, womit Sie leben müssen.

QuantumPete

Answer 3

In TCL können Sie uplevel verwenden. Was Perl angeht, ich weiß es nicht.

Answer 4

Nicht sicher, warum QuantumPete downvoted ist, scheint er auf diesem eine Recht zu haben. Sie können local nicht anweisen, Variablen im aufrufenden Block zu initialisieren. Seine Funktionalität ist speziell, und die Initialisierung/Teardown funktioniert nur in dem Block, in dem sie ausgeführt wurde.

Es gibt einige experimentelle Module wie Sub::Uplevel und Devel::RunBlock, die Sie für Subroutinen „zu täuschen“ caller() erlauben, zu versuchen, oder eine ‚Weitsprung Rückkehr‘ von Werten zu höheren Stapelrahmen (jeweils) tun, aber keiner von ihnen etwas zu tun zu beeinflussen, wie local Variablen behandelt (Ich versuchte. :)

So für jetzt sieht es wirklich so aus, als müssten Sie mit den lokalen Deklarationen in dem Bereich leben, in dem Sie sie benötigen.

Answer 5

Perldoc perlguts sagt:

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. Ich habe Alias.pm nicht genau genug angeschaut, um zu sehen, wie einfach das sein könnte.

Answer 6

Perl hat Sub::Uplevel