in reply to Curious Perl Behavior...
sub sum { my ($numbers_ref) = @_; my $sum = 0; foreach my $i (0 .. $#{ $numbers_ref }) { $sum += $numbers_ref->[$i]; } return $sum; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Curious Perl Behavior...
by ack (Deacon) on May 26, 2010 at 15:09 UTC |