Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

How to exit a "foreach" loop early?

Oct 18, 1998, 12:35 PM
JPDeni
Veteran (8669 posts)
Oct 18, 1998, 12:35 PM
Post #1 of 3
Views: 29611
Shortcut
Quote Reply
How to exit a "foreach" loop early?
I'm doing a little mod of DBMan to check for unacceptable words. What I have so far is

Quote:
foreach $dirty_word (@dirty_words) {
if (lc($in{$col}) =~ /$dirty_word/) {
push(@input_err, "$col (Includes a banned word.");
}
}

As soon as it comes up with one unacceptable word, there's no point in checking for more. How do I exit the loop early?

Thanks much!



------------------
JPD
Oct 18, 1998, 1:06 PM
Mark Badolato
Veteran (1509 posts)
Oct 18, 1998, 1:06 PM
Post #2 of 3
Views: 29436
Shortcut
Quote Reply
Re: How to exit a "foreach" loop early? In reply to
DIRTY: foreach $dirty_word (@dirty_words) {
if (lc($in{$col}) =~ /$dirty_word/) {
push(@input_err, "$col (Includes a banned word.");
last DIRTY;
}
}

Should do it for ya!

--Mark

------------------
You can reach my by ICQ at UIN #8602162

Oct 18, 1998, 1:09 PM
JPDeni
Veteran (8669 posts)
Oct 18, 1998, 1:09 PM
Post #3 of 3
Views: 29427
Shortcut
Quote Reply
Re: How to exit a "foreach" loop early? In reply to
Thanks Mark!