On Dec 3, 2008, at 7:14 AM, Aristotle Pagaltzis wrote:
--snip--
Does Perl 6 have some mechanism so I could write it along the
following obvious lines?
my $i;
while ( @stuff ) {
$_->do_something( ++$i ) for @stuff;
}
# plus some way of attaching this fix-up just once
{ @stuff = grep !$_->valid, @stuff }
In Perl 5 or Perl 6, why not move the grep() into the while()?
my $i;
while ( @stuff = grep !$_->valid, @stuff ) {
$_->do_something( ++$i ) for @stuff;
}
Perl 5 example:
$ perl -wle '@z=qw(a bb ccc); while (@z = grep { length($_) < 4 } @z)
{ print "@z"; $_ .= "." for @z }'
a bb ccc
a. bb.
a..
By the way, your use of '!$_->valid' instead of '$_->valid'
sounds backwards when compared with your text
"...assume that [EMAIL PROTECTED] will contain only valid elements".
--
Hope this helps,
Bruce Gray (Util of PerlMonks)
