Re^2: Split a string based on change of character

<Zoffix> eval: $_='zyxxaabbbcccccc'; push @a, $1 while s/((.)\2*)//;[@
+a]
<_ZofBot> Zoffix:  ['z','y','xx','aa','bbb','cccccc']
[download]

20070730 Janitored by Corion: Added code tags, as per Writeup Formatting Tips

Comment on Re^2: Split a string based on change of character Download Code

Replies are listed 'Best First'.
Re^3: Split a string based on change of character by Anonymous Monk on Jul 28, 2007 at 08:43 UTC
Or even: $_='zyxxaabbbcccccc'; push @a, $1 while /((.)\2*)/g; Which doesn't destroy original data.	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks