Re: Elegant way to split into sequences of identical chars? (while //g)

sub splitSameChars
{
    for( shift @_ ) { push @_, $1 while /((.)\2*)/g; } @_;
}
[download]

Comment on Re: Elegant way to split into sequences of identical chars? (while //g) Download Code

Replies are listed 'Best First'.
Re^2: Elegant way to split into sequences of identical chars? (while //g) by tphyahoo (Vicar) on Nov 30, 2005 at 15:16 UTC
For me, easier to understand written so: `use strict; use warnings; use Data::Dumper; print join " ", splitSameChars('xx556xx'); sub splitSameChars { my $letters = shift; push @_, $1 while $letters =~ /((.)\2*)/g; @_; }` [download] (The for loop confused me.)	[reply] [d/l]
Re^3: Elegant way to split into sequences of identical chars? (for) by tye (Sage) on Nov 30, 2005 at 15:50 UTC
(The for loop confused me.) Ah, but it wasn't a `for` loop. It was a `for` aliasing. This can be a very useful technique, so you might want to get used to it. Granted, in this case, it was done to try to better meet the original request for 'an "elegant" 1-liner', and isn't the way I would usually write code (and not even the way I originally posted the code, before I noticed the quoted part of the original request). - tye	[reply]
Re^4: Elegant way to split into sequences of identical chars? (for) by tphyahoo (Vicar) on Nov 30, 2005 at 16:01 UTC
Thanks, but what is that exactly? Google and supersearch weren't much help.	[reply]
Re^5: Elegant way to split into sequences of identical chars? (for) by tye (Sage) on Nov 30, 2005 at 16:47 UTC