$ 1、$＆などのすべての "マジック変数"をローカライズ（保存）する簡単な方法はありますか？

Question

私はPerlでのサブルーチンでは、それは例えば、場合には、発信者がそれを使用している、それで何かを行う前localで「デフォルト変数」$_を維持するために非常に良いアイデアだということを知っている：

今

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

最初に$_を使用する理由は、正規表現を使用して、$1、$2などの便利な「魔法の」変数に結果を入れたいからです。これらの変数も保存したいと思いますが、それを行う方法を見つけることができました。すべてはperlvarは言う

は、内部的に依存して、「現在アクティブな動的スコープで最後に成功したサブマッチ」を参照しているように見える@+と@-、$1などということです。でも、それは私の実験とは違うようです。私が期待した通り、経験的に、次のコードを印刷「aXaa」：

$_ = '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 

しかし、私は本当に驚くべき発見は私のActivePerl少なくとも5.10.0に、はlocal行をコメントアウトすると、まだ$1を維持する、ということです - つまり、答え「aXXa」が生成されます。中括弧で囲まれたブロックの語彙（動的ではない）範囲は、何とか$1の値を保持しているようです。

私は、この状況が最も混乱していると判断し、決定的な説明を聞きたいと思うでしょう。断っておくが、私は実際にあるとして、それらすべてを列挙することなく、すべて正規表現関連のマジック変数を維持する防弾方法のために解決したい：

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

はっきり嫌なハックです。それまでは、私は正規表現が私に触れると、呼び出し元がclobberedすることを期待していない何かが壊れてしまうのではないかと心配します。

ありがとうございます！

Answer 1

おそらく、ドキュメントのより良い言葉遣いを提案することができます。ダイナミックスコープとは、囲みブロックまたはサブルーチンの開始点までのすべて、およびそのブロックまたはサブルーチン呼び出しの開始までのすべてを意味します。を除くと、閉じられたブロックは除外されます。

「現在アクティブなダイナミックスコープで最後に成功したサブミット」とは、各変数の各ブロックの先頭に暗黙的にlocal $x=$x;があることを意味します。

ダイナミックスコープ（たとえば、http://perldoc.perl.org/perlglossary.html#scopeまたはhttp://perldoc.perl.org/perlglossary.html#dynamic-scoping）のほとんどの言及のうち、 は、逆に近づいています。成功した 正規表現を暗黙的にlocal $1などと考えると、これらは適用されます。

Answer 2

これらのすべての変数について、この編集的理由が本当にあるかどうかはわかりません。私はこの文脈で明示的にlocalを使用する必要がなく、Perlをほぼ10年間使用することができました。

あなたの具体的な質問に対する答えは次のとおりです。桁の変数の数は指定されていません（たとえ作業の数にハードメモリの制限がある場合でも）。したがって、それらのすべてを同時にローカライズすることはできません。

Answer 3

あまりにも心配していると思います。

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

は私がの部分をキャプチャしたいときは：行うための最善のことは、すぐに、それらを気にすることなく、特別な変数は、彼らが何でもしましょう、あなたは意味のある変数に必要な値を保存し、あなたのマッチ演算子を実行しています文字列の場合、よくリストのコンテキストで一致演算子を使用して、メモリのリストを取得します。

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