разбить строку с помощью регулярного выражения в Perl

Question

У меня есть строка, которая имеет такую ​​форму:

$ str = "30M1I20M150N20M190N50M"

РЕДАКТИРОВАНИЕ: Я хотел бы разбить эту строку, чтобы мой выводвыглядит следующим образом:

30M1I20M
150N
20M
190N
50M

Однако, когда я пытался с,

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

Я получаю:

30M1I20M
150
20M
190
50M

Как вы можетесмотри, N опускается в результате (150, 190 вместо 150N и 190N).Может ли кто-нибудь сказать мне, как я должен идти?Спасибо!

Answer 1

Поместите N в группу захвата.

/(\d+N)/

Answer 2

См. Утверждения об осмотре in perlre.

split /(?<=[NM])/, '30M1I20M150N20M190N50M'
# returns
# qw(
#     30M
#     1I20M
#     150N
#     20M
#     190N
#     50M
# )

Answer 3

попробуйте следующее (не проверено):

split(/(\d+?[MN])/, $str);