Front page | perl.beginners |
Postings from March 2012
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 }
Thread Next