diff options
| -rwxr-xr-x | perform/gen_report.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perform/gen_report.pl b/perform/gen_report.pl index f5c21f3..63d14a0 100755 --- a/perform/gen_report.pl +++ b/perform/gen_report.pl @@ -61,6 +61,7 @@ use IO::Handle; use Getopt::Long; +use List::Util qw[max]; if ($#ARGV == -1) { usage(); @@ -154,8 +155,6 @@ while (<INPUT>) { } } - - sub usage { print "Usage: gen_reporl.pl [options] FILE options are:\n @@ -424,11 +423,13 @@ sub plot_default_graph1 { } + sub plot_default_graph2 { open(GNUPLOT_DATA_OUTPUT, ">gnuplot.data") or die "error: cannot open file gnuplot.data: $!\n"; - $num_procs_graph = 1 if !$num_procs_graph; + $num_procs_graph = max(sort { $a <=> $b }( keys %results )); + print "min-rpocs: " . $num_procs_graph; $data_type = "write-only" if !$data_type; #set up the plot @@ -441,7 +442,7 @@ sub plot_default_graph2 { #the next line attempts to hack gnuplot to get around it's inability to linearly scale, but logarithmically label an axis print GNUPLOT_PIPE "set xtics (\"4K\" 4*1024, \"8K\" 8*1024, \"16K\" 16*1024, \"32K\" 32*1024, \"64K\" 64*1024, \"128K\" 128*1024, \"256K\" 256*1024, \"512K\" 512*1024, \"1M\" 1024*1024, \"2M\" 2048*1024, \"4M\" 4096*1024, \"8M\" 8192*1024, \"16M\" 16384*1024)\n"; - foreach $xfer (sort {$a <=> $b} ( keys %{$results{1}} )) + foreach $xfer (sort {$a <=> $b} ( keys %{$results{$num_procs_graph}} )) { print GNUPLOT_DATA_OUTPUT $xfer . "\t"; if($io_type & 1) { |