Lines 99-105
my $endtime = time();
Link Here
|
99 |
my $time = $endtime-$startime; |
99 |
my $time = $endtime-$startime; |
100 |
my $accuracy = ($goodcount / $totalcount) * 100; # this is a percentage |
100 |
my $accuracy = ($goodcount / $totalcount) * 100; # this is a percentage |
101 |
my $averagetime = 0; |
101 |
my $averagetime = 0; |
102 |
unless ($time == 0) { $averagetime = $totalcount / $time; }; |
102 |
$averagetime = $time / $totalcount if $totalcount; |
103 |
print "Good: $goodcount, Bad: $badcount (of $totalcount) in $time seconds\n"; |
103 |
print "Good: $goodcount, Bad: $badcount (of $totalcount) in $time seconds\n"; |
104 |
printf "Accuracy: %.2f%%\nAverage time per record: %.6f seconds\n", $accuracy, $averagetime if (defined $verbose); |
104 |
printf "Accuracy: %.2f%%\nAverage time per record: %.6f seconds\n", $accuracy, $averagetime if (defined $verbose); |
105 |
|
105 |
|