正则表达式将字符串除以+ * - /并保留分隔符？

Question

如何在每次出现“/ * - +”时将字符串拆分为小块并保留分隔符？所以，有这样的事

10x+4-1 

转成

10x 
+ 
4 
- 
1 

我已经试过

@left_split = split(/(?<=\+)(?<=\-)(?<=\/)(?<=\*)/, $left_side); 

我想要的分隔符被放置在自己的数组[]。

但是，如果出现类似

4(x-3) 

，如何从分裂4停止REG-EX（x和 - 3）？

Answer 1

您可以使用

(?<=[+*\/-])|(?=[+*\/-]) 

说明：

• (?<=[+*\/-])位置，回顾后的比赛是+, *,/or -
• (?=[+*\/-])位置，先行匹配+, *,/or -

码：@left_split = split(/(?<=[+*\/-])|(?=[+*\/-])/, $left_side);

编辑：限制拆就喜欢4(x-3)字符串可以使用

((?<=[+*\/-])|(?=[+*\/-]))(?!.*?\)) 

见DEMO

Answer 2

您可以将捕获组围绕split使用正则表达式：

split(/([+*\/-])/, '10x+4-1') 
# ('10x', '+', '4', '-', '1') 

或者：

print join("\n", split(/([+*\/-])/, '10x+4-1')); 

打印：

10x 
+ 
4 
- 
1 

Answer 3

这是值得称赞的，你正在做一个尝试写一个解决your previous question但你真的会发现它非常困难。

要做到这一点的方法是用步进的记号器，像这样。它将忽略任何空格并捕获任何括号，如果遇到任何无效字符，它将停止解析字符串。

use strict; 
use warnings; 

my $s = '10x+4-1'; 

my $tokens = qr{ \+ | \- | \* |/| \d+ | [a-z]+ | \(| \) }x; 

while ($s =~ m{ \G \s* ($tokens) }gx) { 
    my $token = $1; 
    print $token, "\n"; 
} 

输出

10 
x 
+ 
4 
- 
1