Gibt es eine einfache Möglichkeit, alle "magischen Variablen" wie $ 1, $ usw. zu lokalisieren (zu erhalten)?

Question

Ich weiß, dass es in einer Subroutine in Perl eine sehr gute Idee ist, die "Standardvariable" $_ mit local beizubehalten, bevor sie etwas damit macht, falls der Aufrufer sie benutzt, zB:

sub f() { 
    local $_;    # Ensure $_ is restored on dynamic scope exit 
    while (<$somefile>) { # Clobbers $_, but that's OK -- it will be restored 
     ... 
    } 
} 

Oft ist der Grund, warum Sie $_ verwenden, ersteres, weil Sie Regexes verwenden wollen, die Ergebnisse in handliche "magische" Variablen wie $1, $2 usw. bringen können. Ich möchte diese Variablen auch beibehalten, aber ich habe es nicht getan war in der Lage, einen Weg zu finden, dies zu tun.

Alles was perlvar sagt ist, dass @+ und @-, von denen $1 usw. abhängen, intern zu sein scheinen, beziehen sich auf die "letzten erfolgreichen Unterübereinstimmungen im aktuell aktiven dynamischen Bereich". Aber selbst das scheint meinen Experimenten zu widersprechen. Empirisch druckt der folgende Code "aXaa", wie ich es mir erhofft hatte:

$_ = 'a'; 
/(.)/;   # Sets $1 to 'a' 
print $1;  # Prints 'a' 
{ 
    local $_; # Preserve $_ 
    $_ = 'X'; 
    /(.)/;  # Sets $1 to 'X' 
    print $1; # Prints 'X' 
} 
print $_;  # Prints 'a' ('local' restored the earlier value of $_) 
print $1;  # Prints 'a', suggesting localising $_ does localise $1 etc. too 

Aber was ich wirklich überraschend finde, ist, dass in meiner ActivePerl 5.10.0 zumindest die local-Zeile immer noch mit $1 kommentiert - - das heißt, die Antwort "aXXa" wird produziert! Es scheint, dass der lexikalische (nicht dynamische) Umfang des geschweiften Blocks den Wert von $1 irgendwie erhält.

So finde ich diese Situation bestenfalls verwirrend und würde gerne eine definitive Erklärung hören. Wohlgemerkt, ich würde mich mit einem kugelsicheren Weg begnügen, alle Regex-bezogenen magischen Variablen zu erhalten, ohne sie alle wie folgt aufzählen zu müssen:

local @+, @-, $&, $1, $2, $3, $4, ... 

was eindeutig ein ekelhafter Hack ist. Bis dahin werde ich mir Sorgen machen, dass jeder Regex, den ich berühre, etwas durchkreuzt, was der Anrufer nicht erwartet hat.

Danke!

Answer 1

Vielleicht können Sie eine bessere Formulierung für die Dokumentation vorschlagen. Dynamischer Gültigkeitsbereich bedeutet alles bis zum Anfang des umschließenden Blocks oder der Unterroutine sowie alles bis zum Beginn dieses Blocks oder Unterprogrammaufrufs usw. außer, dass alle geschlossenen Blöcke ausgeschlossen sind.

Eine andere Art, es zu sagen: "Letzte erfolgreiche Unterübereinstimmungen im aktuell aktiven dynamischen Bereich" bedeutet, dass zu Beginn jedes Blocks implizit für jede Variable ein local $x=$x; steht.

Die meisten Erwähnungen des dynamischen Bereichs (zum Beispiel http://perldoc.perl.org/perlglossary.html#scope oder http://perldoc.perl.org/perlglossary.html#dynamic-scoping) nähern sich von der anderen Seite her. Sie gelten, wenn Sie an eine erfolgreiche Regex als implizit tun eine local $1, etc. denken

Answer 2

Ich bin mir nicht sicher, ob es wirklich einen Grund gibt, über all diese Variablen paranoid zu sein. Ich habe es geschafft, Perl fast zehn Jahre lang zu benutzen, ohne dass ich in diesem Zusammenhang einmal explizit local verwenden musste.

Die Antwort auf Ihre spezifische Frage lautet: Die Anzahl der Ziffernvariablen ist nicht gegeben (obwohl die Anzahl der Übereinstimmungen, mit denen Sie arbeiten können, begrenzt ist). Es ist also nicht möglich, alle gleichzeitig zu lokalisieren.

Answer 3

Ich denke, dass Sie sich zu viel Sorgen machen. Das Beste, was zu tun ist, Ihre Match-Operator laufen, sofort die Werte speichern Sie in sinnvolle Variablen wollen, dann lassen Sie die speziellen Variablen tun, was sie über sie, ohne sich Gedanken machen:

if($string =~ m/...(a.c).../) { 
    my $found = $1; 
    } 

Als ich Teile des erfassen möchten Strings, verwende ich meistens das Spiel Betreiber in Listenkontext eine Liste der Erinnerungen zurück zu bekommen:

my @array = $string =~ m/..../g;