When I run this code:
当我运行此代码时:
$_='xaxbxc';
if(/(x(?<foo>.))+/) {
say "&: ", $&;
say "0: ", $-{foo}[0];
say "1: ", $-{foo}[1];
}
$_='xaxbxc'
阅读背景：
命名的捕获多次匹配（Perl）
来源：互联网
分享到：
