[Israel.pm] Can anyone explain my mistake ?

Berler Chanan chananb at centerity.com
Wed Jun 10 05:55:42 PDT 2009

In the real world (in my way of thinking)
Foreach should have interpreted into a 'for' loop

foreach $elm (@elm_arr) ==> should have been: for ($index = 0; $index >=
$#elm_arr; $index++) { $elm = $elm_arr[$index]; ..... }

this way my script would have worked.

-----Original Message-----
From: perl-bounces at perl.org.il [mailto:perl-bounces at perl.org.il] On Behalf
Of sawyer x
Sent: Wednesday, June 10, 2009 12:05 PM
To: Perl in Israel
Subject: Re: [Israel.pm] Can anyone explain my mistake ?

People already answered this but I wanted to provide a more explanatory
It's also kind of long, I hope that's okay with you.

> I am running this simple foreach loop:
> why do I get lv_num = <null> ? am I missing something ?
> Thanks
> Chanan
> my @arr = (1,2,3,4,5);
> foreach $lv_num (@arr)
> {
>   print "Found $lv_num\n";
>   last if ($lv_num == 3);
> }
> print "lv_num = $lv_num\n";

The way foreach works (without pasting the perldoc for it) is that it
runs a codeblock on each element in an array. foreach handles its own
codeblock, and localizes the variables outside the codeblock for its
own use.

Imagine what would happen if it didn't. If foreach would not localize
the variable for its own codeblock, this could occur:
my @arr = ( 1 .. 5 );
my $elm = 4;

foreach $elm (@arr) {
    print "$elm\n";
(the output would be:)

Why? because the element was predefined as 4, and in our crazy little
world foreach doesn't localize the variable, it uses the original
Imagine what would happen if you had this:
my @arr = ( 1.. 5, 0, -1, 4 );
my $elm = 4;

foreach $elm (@arr) {
    print "$elm\n";

(what output would this be?)

So basically, foreach says "whatever it was, I'm gonna put it aside,
use the variable to iterate through the array, and then put the value
back the way it was before I touched it". This means that if you had
an uninitialized variable, used a foreach with it to iterate over an
array, and then printed the variable outside the foreach, it's still
$ perl -W -le'my @a=(0..4); my $a; foreach $a (@a) { print $a } print $a;'
Use of uninitialized value in print at -e line 1. # <-- this is from
the print AFTER the foreach loop

So whatever value the variable had inside of the codeblock is removed
in favor of the original value when foreach is done. "Done" of course
refers to last; as well, since basically what you're saying is "lets
just get to the end of foreach right now". So, by having a value of 4
before the foreach, inside the foreach it will be the element in list
(for each iteration of it) and after it will return to be 4.

Did this answer your question?
Perl mailing list
Perl at perl.org.il
No virus found in this incoming message.
Checked by AVG - www.avg.com 
Version: 8.5.339 / Virus Database: 270.12.56/2161 - Release Date: 06/09/09

More information about the Perl mailing list