正则表达式 – 如何捕获正则表达式的交替匹配组与拆分？

发布时间：2020-12-14 06:01:15 所属栏目：百科来源：网络整理

导读：我有一个字符串 my $foo = 'one#two#three!four#five#six'; 从中我想要提取由#或a！分隔的部分.拆分时这很容易： my @parts = split /#|!/,$foo; 另外一个要求是我还需要捕获感叹号.所以我试过了 my @parts = split /#|(!)/,$foo; 然而,这会返回undef值或感

我有一个字符串

my $foo = 'one#two#three!four#five#six';

从中我想要提取由#或a！分隔的部分.拆分时这很容易：

my @parts = split /#|!/,$foo;

另外一个要求是我还需要捕获感叹号.所以我试过了

my @parts = split /#|(!)/,$foo;

然而,这会返回undef值或感叹号(在拆分规范中也明确说明).

所以,我用grep清除了不需要的undef值：

my @parts = grep { defined } split /#|(!)/,$foo;

这就是我想要的.

然而我想知道我是否可以以某种方式更改正则表达式,以便我不必也调用grep.

解决方法

当您使用split时,一旦找到匹配项,您可能不会省略空捕获(因为匹配中的捕获总是与正则表达式中定义的一样多).不过,您可以在此处使用匹配方法：

my @parts = $foo =~ /[^!#]+|!/g;

这样,你将匹配1个或更多的字符！和#(用[^！#]替代)或感叹号,多次(/ g).

（编辑：李大同）

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