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

You can use split:

my $string= 'AAABBBCCCDD';
my $i=0;
my @words= grep $i=!$i,split /(?<=(.))(?!\1)/,$string;
print join "\n",@words,'';
[download]

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

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

Replies are listed 'Best First'.
Re^3: Split a string based on change of character by ikegami (Patriarch) on Jul 28, 2007 at 15:02 UTC
I never thought of `grep $i=!$i,` [download] before. I usually use `grep $i^=$i,` [download] Yours is easier to understand, though. Update: Yeah, I mean `grep $i^=1,`.	[reply] [d/l] [select]
Re^4: Split a string based on change of character by Skeeve (Parson) on Jul 28, 2007 at 15:28 UTC
But `$i^=$i` makes $i 0 at once. So it's different to `$i=!$i` Back in the ancient times of C64 Basic I used `j=1-j` `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]
Re^5: Split a string based on change of character by eyepopslikeamosquito (Archbishop) on Jul 29, 2007 at 02:43 UTC
I think ikegami meant `$i^=1`, i.e.: `my @words = grep $i^=1, split /(?<=(.))(?!\1)/, $string;` [download] which does work.	[reply] [d/l] [select]
Re^3: Split a string based on change of character by eyepopslikeamosquito (Archbishop) on Jul 28, 2007 at 23:47 UTC
As you might expect, I was tempted to (ab)use the magical $\| flip-flop variable: `my @words = grep --$\|, split /(?<=(.))(?!\1)/, $string;` [download] but was able to restrain myself. :-)	[reply] [d/l]