括弧でくくられた配列（Perl）

Question

Perlの正規表現の括弧内の一致（つまり$1、$2、$3など）に配列としてアクセスする方法があったのを覚えているようですが、今はできませんそれを見つけるようです。 @+と@-のどちらも意味しません。

編集： 私はそうのように、私はs///（置換）内でこの配列にアクセスすることを追加する必要があります（私が探している配列した@!場合）

s/(foo)(bar)+(baz)/mySubst(@!)/e; 

Answer 1

私は、括弧内のグループのすべてを保持している組み込みの魔法の配列を認識していないけど、それはものを作るからあなたを停止しない：

ここ

{package Match::Parens; 
    sub TIEARRAY {bless []} 
    sub FETCH {no strict 'refs'; ${$_[1] + 1}} 
    sub FETCHSIZE {$#+} 
    tie @!, __PACKAGE__; 
} 

sub mySubst {join ', ' => map ucfirst, @_} 

my $str = 'foobarbarbaz'; 

$str =~ s/(foo)(bar)+(baz)/mySubst(@!)/e; 

say $str; # prints 'Foo, Bar, Baz' 

我々はMatch::Parensは新しいになることを宣言結合した@!配列の実装。それがアクセスされるたびに、そのインデックスで現在の一致を検索します。現在の実装は配列のように0から始まり、$1, $2, $3のように1から開始するように変更することができます。

Answer 2

@array = $ foo =〜m /（あなたの）（reg）（exp）/;

Answer 3

グローバルマッチングフラグでどのように動作するか考えていますか？

@matches = /x(.+?)y/g; # Matching against $_ 

マッチには、一致する文字列の配列要素が含まれます。

あなたが何を参照しているのか聞いたことがありません。 This linkは、あなたがしようとしていることを達成するのに役立つ情報を提供する場合があります。

Answer 4

これは回避策です。参照としてアクセスすることもできます。

s/(foo)(bar)+(baz)/mySubst([$1,$2,$3,$4])/e; 

これは、一致する要素の上限を知っていればうまくいくでしょう。この解決法は警告で壊れません。