Re: Counting variable initialization

Try -MO=Deparse to see what perl thinks of your code:

$ perl -MO=Deparse 443218.pl
my(@l) = ('10', '20', '30');
foreach $_ (@l) {
    my $t += $_;
}
print $t;
443218.pl syntax OK
[download]

where file 443218.pl contains

$ cat 443218.pl
use warnings;
use strict;

my @l = qw/10 20 30/;
my $t += $_ foreach @l;
#my $t;
#$t += $_ foreach @l;
print $t;
[download]

the lowliest monk

Update: Added the contents of the file given to -MO=Deparse for clarification.

Comment on Re: Counting variable initialization Select or Download Code

Replies are listed 'Best First'.
Re^2: Counting variable initialization by ikegami (Patriarch) on Mar 29, 2005 at 18:41 UTC
Deparse is wrong in this case, on two counts: 1) `print($t)` is not strict safe in the deparsed version, but it is in the original, and 2) `print($t)` prints the package variable in the deparsed version, but not in the original. To answer the OP, `my` is considered a function for syntax purposes, so `my ... foreach ...;` means `(my ...) foreach ...;`, which makes no sense.	[reply] [d/l] [select]
Re^3: Counting variable initialization by tlm (Prior) on Mar 29, 2005 at 18:52 UTC
I wondered about the fact that strict seemed to be violated. I defer to your interpretation, but it is a bummer to know that `Deparse` can be wrong, because I use it quite a bit. Sorry to the OP for the wrong info. the lowliest monk	[reply] [d/l]
Re^2: Counting variable initialization by eric256 (Parson) on Mar 29, 2005 at 19:34 UTC
Thats odd. That isn't the deparse I get at all. Before: `use strict; my @l = qw/10 20 30/; my $i += $_ foreach @l; my $t; $t += $_ foreach @l; print '$t = ' . $t . "\n"; print '$i = ' . $i . "\n";` [download] After: `use strict 'refs'; my(@l) = ('10', '20', '30'); ; my $i += $_ foreach (@l); my $t; ; $t += $_ foreach (@l); print '$t = ' . $t . "\n"; print '$i = ' . $i . "\n";` [download] Output for both scripts: `$t = 60 $i =` [download] ___________ Eric Hodges	[reply] [d/l] [select]


There's more than one way to do things
	PerlMonks