Re^4: Elegant way to split into sequences of identical chars? (for)

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

Replies are listed 'Best First'.

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]