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

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

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

Replies are listed 'Best First'.
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]


There's more than one way to do things
	PerlMonks