57 my $time = $sh_time / 1000; |
57 my $time = $sh_time / 1000; |
58 my $avg_time = $time / $sh_succeeded; |
58 my $avg_time = $time / $sh_succeeded; |
59 print FILE "Total number of sledgehammer calls: $sh_calls\n"; |
59 print FILE "Total number of sledgehammer calls: $sh_calls\n"; |
60 print FILE "Number of successful sledgehammer calls: $sh_succeeded\n"; |
60 print FILE "Number of successful sledgehammer calls: $sh_succeeded\n"; |
61 printf FILE "Percentage of successful sledgehammer calls: %.0f%%\n", $percent; |
61 printf FILE "Percentage of successful sledgehammer calls: %.0f%%\n", $percent; |
62 print FILE "Total time for successful sledgehammer calls: $time seconds\n"; |
62 printf FILE "Total time for successful sledgehammer calls: %.3f seconds\n", $time; |
63 print FILE "Average time for successful sledgehammer calls: $avg_time seconds\n\n"; |
63 printf FILE "Average time for successful sledgehammer calls: %.3f seconds\n\n", $avg_time; |
64 } |
64 } |
65 |
65 |
66 if ($metis_calls > 0) { |
66 if ($metis_calls > 0) { |
67 my $percent = $metis_succeeded / $metis_calls * 100; |
67 my $percent = $metis_succeeded / $metis_calls * 100; |
68 my $time = $metis_time / 1000; |
68 my $time = $metis_time / 1000; |
69 my $avg_time = $time / $metis_succeeded; |
69 my $avg_time = $time / $metis_succeeded; |
70 print FILE "Total number of metis calls: $metis_calls\n"; |
70 print FILE "Total number of metis calls: $metis_calls\n"; |
71 print FILE "Number of successful metis calls: $metis_succeeded\n"; |
71 print FILE "Number of successful metis calls: $metis_succeeded\n"; |
72 print FILE "Number of metis time outs: $metis_time_out\n"; |
72 print FILE "Number of metis time outs: $metis_time_out\n"; |
73 printf FILE "Percentage of successful metis calls: %.0f%%\n", $percent; |
73 printf FILE "Percentage of successful metis calls: %.0f%%\n", $percent; |
74 print FILE "Total time for successful metis calls: $time seconds\n"; |
74 printf FILE "Total time for successful metis calls: %.3f seconds\n", $time; |
75 print FILE "Average time for successful metis calls: $avg_time seconds\n"; |
75 printf FILE "Average time for successful metis calls: %.3f seconds\n", $avg_time; |
76 } |
76 } |
77 |
77 |
78 close(FILE); |
78 close(FILE); |