in reply to Skipping Elements in an Array
#!/usr/local/bin/perl my @array = qw(AAA BB CCCC DD EEEEE FFF GGGG); my $flag = 0; foreach (@array) { next if $flag-- > 0; if (length($_) == 2) { $flag=1; next; } print "$_\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Skipping Elements in an Array
by tweetiepooh (Hermit) on Apr 07, 2005 at 12:36 UTC |