Use of uninitialized value in concatenation (.) or string

[Chris Stinemetz]

Hello list,

I am getting the results I want with this iteration through the hash,
but I am stump on clearing the following warnings:

fyi line 12168 is the last line of the input file.

Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.
Use of uninitialized value in concatenation (.) or string at
./TESTdeltaT1.pl line 54, <$SUM> line 12168.

Any ideas on how to resove it?

code snippet:
    51  foreach my $cell ( @wanted ) {
    52    print $DELTA "$cell:";
    53    foreach my $hr ( @hours ) {
    54      if ( defined keys %{ $href->{$hr}}){
    55        print $DELTA "\t$href->{$cell}{$hr}";
    56      }
    57      else {
    58        print $DELTA "\t";
    59      }
    60    }
    61    print $DELTA "\n";
    62  }

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/