my (%report_ccr,%report_asr);
my (%report_ccr_o,%report_asr_o);
my (%report_stop, %report_o_stop);

for (sort keys %totalcalls_o)
{

       my $start_o_f = ($start_o{$_}) ? $start_o{$_} : 0;
       #for stop record outbound side;
       if (exists $stop_outbound{$_}) {
           #print "\$stop_o{$_} is $stop_o{$_}\n";
           #print "\$stop_outbound{$_} is $stop_outbound{$_}\n";
           $report_o_stop{$_} = sprintf("%.2f", ( ( $stop_outbound{$_}
+ / 60000 ) / $stop_o{$_})) ; #resultsin min mark
           #print "\$report_o_stop{$_} is $report_o_stop{$_}\n";
       } elsif (defined $crank_o{$_}) {
          $report_ccr_o{$_} = sprintf("%.2f" , ( ( $start_o_f / ($tota
+lcalls_o{$_} - $crank_o{$_}) ) * 100 ));
          $report_asr_o{$_} = sprintf("%.2f" , ( ( $start_o_f / $total
+calls_o{$_}) * 100 ));
          #print "\$report_ccr_o{$_} is $report_ccr_o{$_}\n";
          #print "\$report_asr_o{$_} is $report_asr_o{$_}\n";
       } else {
          $report_asr_o{$_} = sprintf("%.2f" , ( ( $start_o_f / $total
+calls_o{$_}) * 100 ));
          # print "from last \$report_asr_o{$_} is $report_asr_o{$_}\n
+";
       }
}
print "going dumper\n";
print Dumper(%report_ccr_o);
[download]

Can you provide some sample data that triggers the problem?

You'll get a nicer dump if you dump a reference to the hash, like: print Dumper(\%report_ccr_o);

--
CollegeGear.com - more than just college gear (though, yes, we have college-branded teddy bears)

There was actually flow in my logic.. so I corrected and works now
I still don't understand why eval { } || 0 did not work though


for (sort keys %totalcalls)
{

      my $start_i_f = ($start{$_}) ? $start{$_} : 0;
      $report_stop{$_} = sprintf("%.2f", ( ( $stop_inbound{$_} / 60000 ) / $stop{$_})) if $stop_inbound{$_};
      if (defined $crank{$_}) {
          $report_ccr{$_} = sprintf("%.2f" , ( ( $start_i_f / ($totalcalls{$_} - $crank{$_}) ) * 100 ));
          $report_asr{$_} = sprintf("%.2f" , ( ( $start_i_f / $totalcalls{$_}) * 100 )); 
      } else {
          $report_asr{$_} = sprintf("%.2f" , ( ( $start_i_f / $totalcalls{$_}) * 100 ));
          
      }
}    

I still don't understand why eval { } || 0 did not work though

eval doesn't affect warnings. And the warning occurred during the division, not after the eval was completed.

>perl -we"my $x; my $q = eval { $x / 4 } || 0;
Use of uninitialized value in division (/) at -e line 1.

>perl -we"my $x; my $q = eval { ($x||0) / 4 };

>perl -we"my $x; my $q = ( $x / 4 ) || 0;
Use of uninitialized value in division (/) at -e line 1.

>perl -we"my $x; my $q = ( ($x||0) / 4 );
[download]