sybperl-l Archive

From: Robert Voysey <rvoysey at metlife dot com>
Subject: Re: break statement
Date: Oct 13 1997 3:09PM

Gayatri Krishnan wrote:
> 
> Hi,
>         Can someone help me with the 'break statement with in a  'foreach'
> loop???
> 
>         I've an array @a with numbers (123, 124, 125)
> 
> 
>                     foreach $i (0 .. $#a) {
>                          if ($e[$i] == "123") {
>                                 $code = "A";
>                         }
>                          elsif ($e[$i] == "124") {
>                                 $code = "B";
>                                 break;
>                         }
>                         elsif ($e[$i] == "125") {
>                                 $code = "C";
>                         }
>                     }
> 
>         Problem is the loop doesn't break when 'a' is 124... instead it goes
> thru all the conditions and $code gets assigned C.
> 
> Thanks!
> 
> gayatri
The problem is that you are using a numeric comparison on strings. Try
$e[I] eq "123" instead.