Re: Creating Reports with hashes: Use of uninitialized value while adding integers

You need to change:

        for my $size (@sizeOfTrees) {
            my $quant = $tree_collection{$years}{$trees}{$size} || "-"
+;
            printf "%9s", "$quant";

            # { no warnings; $total += $quant; }    # WHY DO I NEED TH
+IS?
        }
[download]

To:

        for my $size (@sizeOfTrees) {
            my $quant = $tree_collection{$years}{$trees}{$size} || 0;
            printf "%9s", $quant || '-';

            $total += $quant;
        }
[download]

my $quantity = (); my $total_quantity = (); my $total = (); my $year_total = ();
[download]

Why are you trying to assign a list to a scalar variable? Don't do that, it makes no sense!

printf "%9s", "$quant"; printf "%5s", "$total"; printf "%9s", "$total_col{$i}"; printf "%5s", "$year_total";
[download]

Don't quote scalar variables. Perl is not a shell! What's wrong with always quoting "$vars"?

Comment on Re: Creating Reports with hashes: Use of uninitialized value while adding integers Select or Download Code

Replies are listed 'Best First'.
Re^2: Creating Reports with hashes: Use of uninitialized value while adding integers by ikegami (Patriarch) on Jan 26, 2012 at 18:20 UTC
Why are you trying to assign a list to a scalar variable? Don't do that, it makes no sense! It may not be the most readable, but that doesn't meant it makes no sense. Not to mention, no list op or list value is involved. Empty parens in scalar context evaluate to undef.	[reply]
Re^2: Creating Reports with hashes: Use of uninitialized value while adding integers by GertMT (Hermit) on Jan 26, 2012 at 16:31 UTC
Great help and some extra tips. I meant to assign the scalars to UNDEF. Now changed, as proposed by others, declaring the scalar variables to 0; It looks much cleaner with the NOT quoted scalar variables. Thanks again.	[reply]
Re^3: Creating Reports with hashes: Use of uninitialized value while adding integers by ikegami (Patriarch) on Jan 26, 2012 at 18:14 UTC
I meant to assign the scalars to UNDEF. `$foo = ();` will indeed do that, but since scalars are initialised to undef on creation, `my $foo;` is sufficient.	[reply] [d/l] [select]