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

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.)

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

Replies are listed 'Best First'.
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
`for` can be used to loop over a list of items (in which case it makes more sense to use `foreach` except that Perl programmers are usually too interested in being terse). It can be used to construct a C-style loop, for(init;whileTrue;gotoNext). It can also be used to create a temporary alias to some scalar that you want to do more than one operation on. `for( $thingy{foo()}{bar()} ) { s/^\s+//; s/\s+(#.)?$//; tr/A-Z/a-z/; }` [download] vs. `$thingy{foo()}{bar()} =~ s/^\s+//; $thingy{foo()}{bar()} =~ s/\s+(#.)?$//; $thingy{foo()}{bar()} =~ tr/A-Z/a-z/;` [download] - tye	[reply] [d/l] [select]