Because of this global-state issue the flip-flop is pretty much useless to me

My take is that the flip-flop is very useful for one-liners were is compactness is invaluable, and I wouldn't want to lose that.

But I cannot remember the last time I used in a script. What it does can always be done better -- though more verbosely -- when you have the space.

From my point all it would take is a way to reset it's state somehow - then the flip-flop could be handy.

Is there any reason why this functionality does not (seem to) exist?

The main reason is that implicit state that must be resetted explicitly is a bad idea. Especially if you compare it to a lexical variable, which provides state explicitly, and is resetted implicitly at the end of the scope.

For example if an exception is thrown before you do the reset, the next call of your function will return wrong results.

And what if there are multiple flip-flops in scope? How do you control which one is reset?

Perl 6 - second systems done right

use strict;
my @a = qw(hubba bubba abba zappa);
print blah("bubba", @a), "\n";
print blah("bubba", @a), "\n";

sub blah {
    my($look_for, @array)=@_;
    
    my @elements_we_want;
    my $string = 
        '(undef, @elements_we_want) = grep { $_ eq $look_for .. 1 } @a
+rray;';
    eval $string;
    
    return @elements_we_want;
}
[download]