使用perl中的正则表达式拆分字符串

Aru*_*run 2 regex perl split

我有一个这种形式的字符串:

$ str ="30M1I20M150N20M190N50M"

编辑:我想拆分这个字符串,以便我的输出看起来像这样:

30M1I20M
150N
20M
190N
50M

但是,当我尝试时,

@split_str = split(/(\ d +)N /,$ str);

我明白了:

30M1I20M
150
20M
190
50M

如您所见,结果中省略了N(150,190而不是150N和190N).谁能告诉我应该怎么做?谢谢!

Que*_*tin 7

将N 放在捕获组中.

/(\d+N)/
Run Code Online (Sandbox Code Playgroud)