Hi. New poster here! I'm building a Cricket Sports Database. The code below runs fine until it gets past batters who have scored runs, (returns 236 records) but when it hits bowlers with no runs (blank Field), I get Division by Zero error. I've tried allsorts of solutions ... mainly from here; but I'm a bit new and can't figure it out... It's a flat file system DBMan from years ago; but still great if working!! I've truncated the table for easier viewing...
sub html_record { # -------------------------------------------------------- my (%rec) = @_; # Load any defaults to put in the VALUE field. $total = 0; $total = $rec{'BatterRuns'} + $rec{'HighestScore'}; $baverage1 = 0; $baverage1 = $rec{'Innings'} - $rec{'NotOut'}; $baverage = 0; $baverage = $rec{'BatterRuns'} / $baverage1; # Gives 236 correct results until it hits a blank bowler field # who has not batted ie: NULL</b> ($db_auto_generate and print &build_html_record(%rec) and return); print qq| <TABLE WIDTH="450" CELLPADDING=0 CELLSPACING=0 BORDER=1 BGCOLOR="#FFFF +CC"> <TR><TD ALIGN="Right" VALIGN="TOP"><$font_color>Batting Average:</FONT +></TD><TD> <$font>$baverage</Font></TD></TR> </TABLE> |; }
In reply to Null values in Perl Calculation by PaulB-Liverpool
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |