Ng, Bill asked on April 18, 2006 12:59 PM > So if my array was: > @a=(1,2,3,4,5); > And we assume that I don't want to execute the block if the > value of $_ is 3 ... > > Then, in my head, I'm looking for the WORKING (key word there) > version of this: > ----------- > @a = (1,2,3,4,5); > if ($_ != 3) for (@a) > { > print "something"; > &doSomething(); > print "somethingelse"; > &yada($yada{$ya}) > } > -------------
use strict; use warnings; my @a=(1..5); # don't like this # print grep {$_ != 3} (1 .. 5); # don't like this either # for (grep {$_ != 3} @a) { print "$_ "; } # OK # for (@a) { ($_ == 3) and next; # or: next if $_ == 3; print "$_ "; } #--Suresh __END__ _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs