Re^2: regex (between two words)


"be consistent"
	PerlMonks

Re^2: regex (between two words)

by LanX (Saint)

on Feb 09, 2020 at 22:01 UTC ( [id://11112702]=note: print w/replies, xml )

Need Help??

in reply to Re: regex (between two words)
in thread regex (between two words)

hmm was more complicated than I thought (at least in the debugger)

  DB<173> p $_ = join " ", map { "$_" x 3 } qw/. a b C a d C e C ./
... aaa bbb CCC aaa ddd CCC eee CCC ...
  DB<174> ; /(aaa.*?CCC)/gc;  $last= $1                    # $1 reset 
+in next debugger line

  DB<175> @res = map { $last .= $_ } ("", /\G(.*?CCC)/g)

  DB<176> x @res
0  'aaa bbb CCC'
1  'aaa bbb CCC aaa ddd CCC'
2  'aaa bbb CCC aaa ddd CCC eee CCC'
  DB<177>
[download]

I think I'd rather prefer splitting the longest match ...

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re^2: regex (between two words) Download Code

Replies are listed 'Best First'.

Re^3: regex (between two words)
by LanX (Saint) on Feb 09, 2020 at 22:13 UTC

> I think I'd rather prefer splitting the longest match ...

  DB<205> p $_ = join " ", map { "$_" x 3 } qw/. a b C a d C e C ./
... aaa bbb CCC aaa ddd CCC eee CCC ...
  DB<206> p ($long) = /(aaa.*CCC)/
aaa bbb CCC aaa ddd CCC eee CCC
  DB<207> $last = ""

  DB<208> x map {$last .= $_ } split /(?<=CCC)/, $long
0  'aaa bbb CCC'
1  'aaa bbb CCC aaa ddd CCC'
2  'aaa bbb CCC aaa ddd CCC eee CCC'
  DB<209>
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

[reply]
[d/l]

In Section Seekers of Perl Wisdom