graph-compare-results

开启mysql的远程连接的方法 mysql-noinstall-5.1.6-alpha-win32.zip

# the width of the grey field ' 	'	'	'	$width_grey=
# the height of the grey field '	'	'	'	$height_grey=
# number of dashed lines					$lines=
# if bars must overlap how much they must be overlapped		$overlap=
# titlebar title of graph in two colors big			$titlebar=
# titlebar1 sub title of graph in small font in black		$titlebar1=
# xlabel							$xlabel=
# ylabel							$ylabel=
# the name of the gif ...					$name=
# then the following things must be knows .....
# xlabel below or on the left side ?
# legend yes/no?
# where must the legend be placed?
# must the xlabel be printed horizontal or vertical?
# must the ylabel be printed horizontal or vertical?
# must the graph be a line or a bar graph?
# is a xlabel several different entries or some sub entries of one?
#    so xlabel 1 => test1=10, test2=15, test3=7 etc
#    or xlabel 1 => test1a=12, test1b=10, test1c=7 etc
# must the bars overlap (only with the second example I think)
# must the number be printed above or next to the bar?
# when must the number be printed .... only when it extends the graph ...???
# the space between the bars .... are that the same width of the bars ...
#    or is it a separate space ... defined ???
# must the date printed below or some where else ....

#calculate all space for text and other things ....
  $sm_border = 8; # the grey border around ...
  $border = 40; #default ...
  $left_border = 2.75 * $border; #default ...
  $right_border = $border; #default ...
  $up_border = $border; #default ...
  $down_border = $border; # default ...
  $step = ($height - $up_border - $down_border)/ ($luukcounter + (($#key_order + 1) * $luukcounter));
  # can set $step to get nice graphs ... and change the format ...
  $step = 8; # set hard the step value
  
  $gifavg = ($giftotal/$gifcount);
  $highest = 2 * $gifavg;
  $highest = 1; # set hard the highest value ...
  $xhigh = int($highest + .5 * $highest);
  
  # here to get the max lenght of the test entries ...
  # so we can calculate the with of the left border
  foreach $oper (sort keys (%op)) {
    $max_len_lb = length($oper) if (length($oper) > $max_len_lb);
#    print "oper = $oper - $max_len_lb\n";
  }
  $max_len_lb = $max_len_lb * gdSmallFont->width;
  $left_border = (3*$sm_border) + $max_len_lb;
  $down_border = (4*$sm_border) + (gdSmallFont->width*(length($xhigh)+3)) + (gdSmallFont->height *2); 
  $right_border = (3*$sm_border) + 3 + (gdSmallFont->width*(length($highest)+5));

  # calculate the space for the legend .....
  foreach $key (@key_order) {
    $tmp = $key;
    $tmp =~ s/-cmp-$opt_cmp//i;
    $giflegend = sprintf "%-24.24s: %-40.40s",$tmp,$tot{$key}{'server'};
    $max_len_le = length($giflegend) if (length($giflegend) > $max_len_le);
  }
  $max_len_le = $max_len_le * gdSmallFont->width;
  $legend_block = 10; # the length of the block in the legend
  $max_high_le = (($#key_order + 1)*(gdSmallFont->height+2)) + (2*$legend_block);
  $down_border += $max_high_le;
  $up_border = (5 * $sm_border) + gdSmallFont->height + gdLargeFont->height;
  
  print "Here some things we already know ....\n";
#  print "luukcounter = $luukcounter (number of tests)\n";
#  print "gifcount = $gifcount (number of total entries)\n";
#  print "giftotal = $giftotal (total secs)\n";
#  print "gifavg = $gifavg\n";
#  print "highest = $highest\n";
#  print "xhigh = $xhigh\n";
#  print "step = $step -- $#key_order\n";
#  print "max_len_lb = $max_len_lb\n";
#  printf "Small- width %d - height %s\n",gdSmallFont->width,gdSmallFont->height;
#  printf "Tiny- width %d - height %s\n",gdTinyFont->width,gdTinyFont->height;
}

sub gd {
  &calculate;
  $width = 600; # the width ....
  $height = 500; # the height ... 
  $width_greyfield = 430;
  # when $step is set ... count the height ....????
  $width = $width_greyfield + $left_border + $right_border;
  $height = ($step * ($luukcounter + ($luukcounter * ($#key_order + 1)))) + $down_border + $up_border;
  $b_width = $width - ($left_border + $right_border); # width within the grey field
  $overlap = 0; # how far each colum can fall over each other ...nice :-)

  # make the gif image ....
  $im = new GD::Image($width,$height);

  # allocate the colors to use ...
  $white 		= $im->colorAllocate(255,255,255);
  $black 		= $im->colorAllocate(0,0,0);
  $paper_white 		= $im->colorAllocate(220, 220, 220);
  $grey1 		= $im->colorAllocate(240, 240, 240);
  $grey4 		= $im->colorAllocate(229, 229, 229);
  $grey2 		= $im->colorAllocate(102, 102, 102);
  $grey3 		= $im->colorAllocate(153, 153, 153);
  
  $red 			= $im->colorAllocate(205,0,0); # msql
  $lred 		= $im->colorAllocate(255,0,0);
  $blue 		= $im->colorAllocate(0,0,205); # mysql
  $lblue 		= $im->colorAllocate(0,0,255); # mysql_pgcc
  $green 		= $im->colorAllocate(0, 205, 0); # postgres
  $lgreen 		= $im->colorAllocate(0, 255, 0); # pg_fast
  $orange 		= $im->colorAllocate(205,133, 0); # solid
  $lorange 		= $im->colorAllocate(255, 165, 0); # Adabas
  $yellow 		= $im->colorAllocate(205,205,0);  # empress
  $lyellow 		= $im->colorAllocate(255,255,0);
  $magenta 		= $im->colorAllocate(255,0,255); # oracle
  $lmagenta 		= $im->colorAllocate(255,200,255);
  $cyan 		= $im->colorAllocate(0,205,205); # sybase
  $lcyan 		= $im->colorAllocate(0,255,255);
  $sienna 		= $im->colorAllocate(139,71,38); # db2
  $lsienna 		= $im->colorAllocate(160,82,45);
  $coral 		= $im->colorAllocate(205,91,69); # Informix
  $lcoral 		= $im->colorAllocate(255,114,86);
  $peach		= $im->colorAllocate(205,175,149);
  $lpeach		= $im->colorAllocate(255,218,185);
  
  @colors = ($red, $blue, $green, $orange, $yellow, $magenta, $cyan, $sienna, $coral, $peach);
  @lcolors = ($lred, $lblue, $lgreen, $lorange, $lyellow, $lmagenta, $lcyan, $lsienna, $lcoral, $lpeach);

  # set a color per server so in every result it has the same color ....
  foreach $key (@key_order) {
    if ($tot{$key}{'server'} =~ /mysql/i) {
      if ($key =~ /mysql_pgcc/i || $key =~ /mysql_odbc/i || $key =~ /mysql_fast/i) {
        $tot{$key}{'color'} = $lblue;
      } else {
        $tot{$key}{'color'} = $blue;
      }
    } elsif ($tot{$key}{'server'} =~ /msql/i) {
      $tot{$key}{'color'} = $lred;
    } elsif ($tot{$key}{'server'} =~ /postgres/i) {
      if ($key =~ /pg_fast/i) {
        $tot{$key}{'color'} = $lgreen;
      } else {
        $tot{$key}{'color'} = $green;
      }
    } elsif ($tot{$key}{'server'} =~ /solid/i) {
      $tot{$key}{'color'} = $lorange;
    } elsif ($tot{$key}{'server'} =~ /empress/i) {
      $tot{$key}{'color'} = $lyellow;
    } elsif ($tot{$key}{'server'} =~ /oracle/i) {
      $tot{$key}{'color'} = $magenta;
    } elsif ($tot{$key}{'server'} =~ /sybase/i) {
      $tot{$key}{'color'} = $cyan;
    } elsif ($tot{$key}{'server'} =~ /db2/i) {
      $tot{$key}{'color'} = $sienna;
    } elsif ($tot{$key}{'server'} =~ /informix/i) {
      $tot{$key}{'color'} = $coral;
    } elsif ($tot{$key}{'server'} =~ /microsoft/i) {
      $tot{$key}{'color'} = $peach;
    } elsif ($tot{$key}{'server'} =~ /access/i) {
      $tot{$key}{'color'} = $lpeach;
    } elsif ($tot{$key}{'server'} =~ /adabas/i) {
      $tot{$key}{'color'} = $lorange;
    }
  }

  # make the nice little borders
  # left bar
  $poly0 = new GD::Polygon;
  $poly0->addPt(0,0);
  $poly0->addPt($sm_border,$sm_border);
  $poly0->addPt($sm_border,($height - $sm_border));
  $poly0->addPt(0,$height);
  $im->filledPolygon($poly0,$grey1);
  $im->polygon($poly0, $grey4);
  # upper bar
  $poly3 = new GD::Polygon;
  $poly3->addPt(0,0);
  $poly3->addPt($sm_border,$sm_border);
  $poly3->addPt(($width - $sm_border),$sm_border);
  $poly3->addPt($width,0);
  $im->polygon($poly3, $grey4);
  $tmptime = localtime(time);
  $im->string(gdSmallFont,($width - $sm_border - (gdSmallFont->width * length($tmptime))),($height - ($sm_border) - gdSmallFont->height), $tmptime, $grey3);
  
  # right bar
  $poly1 = new GD::Polygon;
  $poly1->addPt($width,0);
  $poly1->addPt(($width - $sm_border),$sm_border);
  $poly1->addPt(($width - $sm_border),($height - $sm_border));
  $poly1->addPt($width,$height);
  $im->filledPolygon($poly1, $grey3);
  $im->stringUp(gdSmallFont,($width - 10),($height - (2 * $sm_border)), "Made by Luuk de Boer - 1997 (c)", $blue);
  #below bar
  $poly2 = new GD::Polygon;
  $poly2->addPt(0,$height);
  $poly2->addPt($sm_border,($height - $sm_border));
  $poly2->addPt(($width - $sm_border),($height - $sm_border));
  $poly2->addPt($width,$height);
  $im->filledPolygon($poly2, $grey2);
  
  # do the black line around where in you will print ... (must be done at last
  # but is hard to develop with ... but the filled grey must be done first :-)
  $im->filledRectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$grey4);


  # print the nice title ...
  $titlebar = "MySQL Benchmark results"; # head title ...
  $titlebar1 = "Compare $opt_cmp "; # sub title
  $header2 = "seconds/test"; # header value
  $center = ($width / 2) - ((gdLargeFont->width * length($titlebar)) / 2);
  $center1 = ($width / 2) - ((gdSmallFont->width * length($titlebar1)) / 2);
  $center2 = ($width_greyfield/2) - ((gdSmallFont->width*length($header2))/2);
  $bovenkant = $sm_border * 3;
  $bovenkant1 = $bovenkant + gdLargeFont->height + (.5*$sm_border);
  $bovenkant2 = $height - $down_border + (1*$sm_border) + (gdSmallFont->width*(length($xhigh)+3)); 
  $im->string(gdLargeFont,($center),($bovenkant + 1), $titlebar, $grey3);
  $im->string(gdLargeFont,($center),($bovenkant), $titlebar, $red);
  $im->string(gdSmallFont,($center1),($bovenkant1), $titlebar1, $black);
  $im->string(gdSmallFont,($left_border + $center2),($bovenkant2), $header2, $black);

  $xlength = $width - $left_border - $right_border;
  $lines = 10; # hard coded number of dashed lines
  $xverh = $xlength / $xhigh;
#  print " de verhouding ===> $xverh --- $xlength -- $xhigh \n";

  $xstep = ($xhigh / $lines) * $xverh;
  $teller = 0;
  # make the nice dashed lines and print the values ...
  for ($i = 0; $i <= $lines; $i++) {
    $st2 = ($left_border) + ($i * $xstep);
    $im->dashedLine($st2,($height-$down_border),$st2,($up_border), $grey3);
    if (($i != 0) && ($teller == 2)) {
      $st3 = sprintf("%.2f", $i*($xhigh/$lines));
      $im->stringUp(gdTinyFont,($st2 - (gdSmallFont->height/2)),($height - $down_border +(.5*$sm_border) + (gdSmallFont->width*(length($xhigh)+3))), $st3, $black);
      $teller = 0;
    }
    $teller++;
  }
  $im->rectangle($left_border,$up_border,($width - ($right_border)),($height-$down_border),$black);
}

sub legend {
  # make the legend ...
  $legxbegin = $left_border;

  $legybegin = $height - $down_border + (2*$sm_border) + (gdSmallFont->width * (length($xhigh) + 3)) + gdSmallFont->height;
  $legxend = $legxbegin + $max_len_le + (4*$legend_block);
  $legxend = $legxbegin + $width_greyfield;
  $legyend = $legybegin + $max_high_le;
  $im->filledRectangle($legxbegin,$legybegin,$legxend,$legyend,$grey4);
  $im->rectangle($legxbegin,$legybegin,$legxend,$legyend,$black);
  # calculate the space for the legend .....
  $c = 0; $i = 1;
  $legybegin += $legend_block;
  foreach $key (@key_order) {
    $xtmp = $legxbegin + $legend_block;
    $ytmp = $legybegin + ($c * (gdSmallFont->height +2));
    $xtmp1 = $xtmp + $legend_block;
    $ytmp1 = $ytmp + gdSmallFont->height;
    $im->filledRectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$tot{$key}{'color'});
    $im->rectangle($xtmp,$ytmp,$xtmp1,$ytmp1,$black);
    $tmp = $key;
    $tmp =~ s/-cmp-$opt_cmp//i;
    $giflegend = sprintf "%-24.24s: %-40.40s",$tmp,$tot{$key}{'server'};
    $xtmp2 = $xtmp1 + $legend_block;
    $im->string(gdSmallFont,$xtmp2,$ytmp,"$giflegend",$black);
    $c++;
    $i++;
#    print "$c $i -> $giflegend\n";
  }
  
}

sub lines {

  $g = 0;
  $i = 0;
  $ybegin = $up_border + ((($#key_order + 2)/2)*$step);
  $xbegin = $left_border;
  foreach $key (sort {$a cmp $b} keys %op) {
    next if ($key =~ /TOTALS/i);
    $c = 0;
#    print "key - $key\n";
    foreach $server (@key_order) {
      $tot1{$server}{$key}->[1] = 1 if ($tot1{$server}{$key}->[1] == 0);
      $entry = $tot1{$server}{$key}->[0]/$tot1{$server}{$key}->[1];
      $ytmp = $ybegin + ($i * $step) ;
      $xtmp = $xbegin + ($entry * $xverh) ;
      $ytmp1 = $ytmp + $step;
#      print "$server -- $entry --x $xtmp -- y $ytmp - $c\n";
      $entry1 = sprintf("%.2f", $entry);
      if ($entry < $xhigh) {
        $im->filledRectangle($xbegin, $ytmp, $xtmp, $ytmp1, $tot{$server}{'color'});
        $im->rectangle($xbegin, $ytmp, $xtmp, $ytmp1, $black);
# print the seconds behind the bar (look below for another entry)
# this entry is for the bars that are not greater then the max width
# of the grey field ...
#        $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$black));
# if you want the seconds in the color of the bar just uncomment it (below)
#        $im->string(gdTinyFont,(($xtmp+3),($ytmp),"$entry1",$tot{$server}{'color'}));
      } else {
        $im->filledRectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $tot{$server}{'color'});
        $im->rectangle($xbegin, $ytmp, ($xbegin + ($xhigh*$xverh)), $ytmp1, $black);

# print the seconds behind the bar (look below for another entry)
# here is the seconds printed behind the bar is the bar is too big for 
# the graph ... (seconds is greater then xhigh ...)
        $im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$black);
# if you want the seconds in the color of the bar just uncomment it (below)
#        $im->string(gdTinyFont, ($xbegin + ($xhigh*$xverh)+3),($ytmp),"$entry1",$colors[$c]);
      }
      $c++;
      $i++;
    }
    # see if we can center the text between the bars ...
    $ytmp2 = $ytmp1 - (((($c)*$step) + gdSmallFont->height)/2);
    $im->string(gdSmallFont,($sm_border*2),$ytmp2,$key, $black);
    $i++;
  }
}


sub gif {
  my ($name) = @_;
  $name_gif = $name . ".gif";
  print "name --> $name_gif\n";
  open (GIF, "> $name_gif") || die "Can't open $name_gif: $!\n";
  print GIF $im->gif;
  close (GIF);
}