Re: flip-flop flop

sub after{ my $target=shift; shift @_ until $_[0] eq $target; return @
+_ };;
@a = 'a'..'z';;

print after( 'm', @a );;
m n o p q r s t u v w x y z

print after( 'e', @a );;
e f g h i j k l m n o p q r s t u v w x y z

print after( 'y', @a );;
y z
[download]

Add another shift if you don't want the element you looked for.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Comment on Re: flip-flop flop Download Code

Replies are listed 'Best First'.
Re^2: flip-flop flop by morgon (Priest) on Mar 30, 2012 at 11:56 UTC
So far all approaches seem to avoid the flip-flop. It would be very curious to see if there is a way to reset the flip-flop in some sane way (you probably need to create a new closure to use in the grep every time you call it or something). This was one of the very few times I tried to make use of the flip-flop and more or less every time I try to use it I have to abandon it in the end. Because of this global-state issue the flip-flop is pretty much useless to me - to the point where I think perl would be better off without it...	[reply]
Re^3: flip-flop flop by BrowserUk (Patriarch) on Mar 30, 2012 at 12:10 UTC
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. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply]
Re^4: flip-flop flop by morgon (Priest) on Mar 30, 2012 at 13:07 UTC
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?	[reply]
Re^5: flip-flop flop by moritz (Cardinal) on Mar 30, 2012 at 13:31 UTC
Re^6: flip-flop flop by morgon (Priest) on Mar 30, 2012 at 13:41 UTC
Some notes below your chosen depth have not been shown here
Re^3: flip-flop flop by BillKSmith (Monsignor) on Apr 01, 2012 at 13:47 UTC
One way to "reset" the flip-flop is to recompile its statement. `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] Edit: Sorry, I did not notice the similiar idea by JavaFan.	[reply] [d/l]