带圆括号的匹配作为数组(Perl)

我不知道有一个内置的魔术数组可以容纳所有带括号的组,但这并不能阻止您创建一个:

{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 将是新实施的 @! 打领带。每次访问时,它都会在该索引处查找当前的匹配paren。当前实现从0开始,类似于数组,您可能希望将其更改为从1开始,类似于 $1, $2, $3 瓦尔斯。

@数组=$foo=~m/(your)(reg)(exp)/;

您是否在考虑它在全局匹配标志下的行为?

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

Matches将为字符串中的每个匹配项包含一个数组元素。

我也没听说过你在说什么。 This link 可能会给你提供一些信息来帮助你实现你想要做的。

这是一份工作。您也可以作为参考访问它们。

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

如果您知道匹配元素的上界,这将非常有用。这个解决方案不会因警告而中断。