Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Construct for Skipping and Continue

by imp (Priest)
on Feb 23, 2007 at 02:32 UTC ( #601672=note: print w/replies, xml ) Need Help??


in reply to Construct for Skipping and Continue

You would typically use a flag for whether the item was found or not. For example:
use strict; use warnings; my @arr = qw( bar qux foo qux2 bar2 foo foo3 ); my $marker = "foo"; my $found = undef; for my $entry (@arr) { if ($entry eq $marker) { $found = 1; } if (defined $found) { print $entry, "\n"; } }
Alternately if you want to extract the subset:
use strict; use warnings; my @arr = qw( bar qux foo qux2 bar2 foo foo3 ); my $marker = "foo"; print "$_\n" for items_after($marker, @arr); sub items_after { my ($marker, @list) = @_; my $index = 0; for my $entry (@list) { print "Checking '$entry' eq '$marker'\n"; if ($entry eq $marker) { return @list[$index..$#list]; } $index++; } return; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://601672]
help
Chatterbox?
[GotToBTru]: Hiya jedikaiti
[RonW]: Ji, JK
[RonW]: Hi
[GotToBTru]: Down voting reap considerations.. Only time I will expend a vote on AM

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (4)
As of 2017-02-27 23:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (393 votes). Check out past polls.