Michele Dondi <[EMAIL PROTECTED]> writes: > Every time I've desired a feature for Perl6 it has turned out that either it > was already planned to be there or I have been given good resons why it would > have been better not be there.
And you've done it again. What you ask for is already there. See below. > > Now in Perl(5) {forum,newsgroup}s you can often see people doing stuff like > > my @files=grep !/^\.{1,2}/, readdir $dir; > > Letting aside the fact that in the 99% of times they're plainly reinventing > the > wheel of glob() a.k.a. File::Glob, there are indeed situations in which one > may > have stuff like > > for (@foo) { > next if $_ eq 'boo'; > # do something useful here > } for @foo { next if (($_ ne 'boo')..undef) # do something useful } > whereas they know in advance that C<if> can succeed at most once (e.g. foo > could really be C<keys %hash>). > > Or another case is this: > > while (<>) { > if (@buffer < MAX) { > push @buffer, $_; > next; > } > # ... > shift @buffer; > push @buffer, $_; > } while <> { if 0..MAX { push @buffer, $_; next } end -- Piers Cawley <[EMAIL PROTECTED]> http://www.bofh.org.uk/