我有一个字符串
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).
