in reply to A better way than ||

So, part (all?) of the problem here is that you have an off-by-one error in your array traversal: @weights in scalar context will give you the number of elements in the array, not the last index. Thus you are always falling off the end of your weights array. Change to: 

for ( 0..$#weights ) { # ...

[download]

You've said that the two arrays have the same number of elements. If they are all defined, always, then you have solved the problem.

If any of them might be undefined (ie. the array is sparse) then you have a different issue, which you probably want to solve the way you supressed the warning above. (or with $weights[$_] ||= 0)

Replies are listed 'Best First'.
Re^2: A better way than ||
by adrianh (Chancellor) on Dec 31, 2005 at 16:26 UTC
    Change to: for ( 0..$#weights )

    Alternatively do away with all that tedious messing around with indices completely :-)

    use List::Util qw( sum );
use List::MoreUtils qw( pairwise );
my $sum = sum pairwise { $a * $b } @weights, @digits;

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom