如何在Perl中将正则表达式捕获存储在数组中？

发布时间：2020-12-15 21:28:23 所属栏目：大数据来源：网络整理

导读：我试图在Perl中使用regex。我想知道的是，如果可以将表达式的所有匹配存储到数组中？我知道我可以使用以下：($ 1，…，$ n)= m / expr / g;但它似乎只能使用，如果你知道匹配的数量你正在寻找。我试过我的@array = m / expr / g;但是似乎不工作。谢谢你的帮

我试图在Perl中使用regex。我想知道的是，如果可以将表达式的所有匹配存储到数组中？我知道我可以使用以下：($ 1，…，$ n)= m / expr / g;但它似乎只能使用，如果你知道匹配的数量你正在寻找。我试过我的@array = m / expr / g;但是似乎不工作。

谢谢你的帮助！

解决方法

如果你做一个全局匹配(/ g)，那么列表上下文中的正则表达式将返回所有捕获的匹配。简单做：

my @matches = ( $str =~ /pa(tt)ern/g )

这个命令例如：

perl -le '@m = ( "foo12gfd2bgbg654" =~ /(d+)/g ); print for @m'

给出输出：

12
2
654

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!