Файловый менеджер

Файловый менеджер - Редактировать - C:/xampp/mysql/sql-bench/graph-compare-results.pl

Назад
#### #### Hello ... this is a heavily hacked script by Luuk #### instead of printing the result it makes a nice gif #### when you want to look at the code ... beware of the #### ugliest code ever seen .... but it works ... #### and that's sometimes the only thing you want ... isn't it ... #### as the original script ... Hope you like it #### #### Greetz..... Luuk de Boer 1997. #### ## if you want the seconds behind the bar printed or not ... ## or only the one where the bar is too big for the graph ... ## look at line 535 of this program and below ... ## look in sub calculate for allmost all hard/soft settings :-) # a little program to generate a table of results # just read all the RUN-.log files and format them nicely # Made by Luuk de Boer # Patched by Monty use Getopt::Long; use GD; $opt_server="mysql"; $opt_cmp="mysql,pg,solid"; $opt_cmp="msql,mysql,pg,solid"; $opt_cmp="empress,mysql,pg,solid"; $opt_dir="output"; $opt_machine=""; $opt_relative=$opt_same_server=$opt_help=$opt_Information=$opt_skip_count=0; GetOptions("Information","help","server=s","cmp=s","machine=s","relative","same-server","dir=s","skip-count") \|\| usage(); usage() if ($opt_help \|\| $opt_Information); if ($opt_same_server) { $files="$opt_dir/RUN-$opt_server-$opt_machine"; } else { $files="$opt_dir/RUN-$opt_machine"; } $files.= "-cmp-$opt_cmp" if (length($opt_cmp)); $automatic_files=0; if ($#ARGV == -1) { @ARGV=glob($files); $automatic_files=1; } # # Go trough all RUN files and gather statistics. # foreach (@ARGV) { $filename = $_; next if (defined($found{$_})); # remove duplicates $found{$_}=1; /RUN-(.)$/; $prog = $1; push(@key_order,$prog); $next = 0; open(TMP, "<$filename") \|\| die "Can't open $filename: $!\n"; while (<TMP>) { chomp; if ($next == 0) { if (/Server version:\s+(\S+.)/i) { $tot{$prog}{'server'} = $1; } elsif (/Arguments:\s+(.+)/i) { $tot{$prog}{'arguments'} = $1; # Remove some standard, not informative arguments $tot{$prog}{'arguments'} =~ s/--log\|--use-old-results\|--server=\S+\|--cmp=\S+\|--user=\S+\|--pass=\S+\|--machine=\S+//g; $tot{$prog}{'arguments'} =~ s/\s+/ /g; } elsif (/Comments:\s+(.+)/i) { $tot{$prog}{'comments'} = $1; } elsif (/^(\S+):\s(estimated\s\|)total\stime:\s+(\d+)\s+secs/i) { $tmp = $1; $tmp =~ s/://; $tot{$prog}{$tmp} = [ $3, (length($2) ? "+" : "")]; $op1{$tmp} = $tmp; } elsif (/Totals per operation:/i) { $next = 1; next; } } elsif ($next == 1) { if (/^(\S+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s+([\d.]+)\s([+\|?])/) { $tot1{$prog}{$1} = [$2,$6,$7]; $op{$1} = $1; #print "TEST - $_ \n * $prog - $1 - $2 - $6 - $7 ***\n"; # $prog - filename # $1 - operation # $2 - time in secs # $6 - number of loops # $7 - nothing / + / ? / => estimated time ... # get the highest value .... $highest = ($2/$6) if (($highest < ($2/$6)) && ($1 !~/TOTALS/i)); $gifcount++; $giftotal += ($2/$6); } } } } if (!%op) { print "Didn't find any files matching: '$files'\n"; print "Use the --cmp=server,server option to compare benchmarks\n"; exit 1; } # everything is loaded ... # now we have to create a fancy output :-) # I prefer to redirect scripts instead to force it to file ; Monty # # open(RES, ">$resultfile") \|\| die "Can't write to $resultfile: $!\n"; # select(RES) # #print <<EOF; #<cut for this moment> # #EOF if ($opt_relative) { # print "Column 1 is in seconds. All other columns are presented relative\n"; # print "to this. 1.00 is the same, bigger numbers indicates slower\n\n"; } #print "The result logs which where found and the options:\n"; if ($automatic_files) { if ($key_order[$i] =~ /^$opt_server/) { if ($key_order[$i] =~ /^$opt_server/) { unshift(@key_order,$key_order[$i]); splice(@key_order,$i+1,1); } } } # extra for mysql and mysql_pgcc #$number1 = shift(@key_order); #$number2 = shift(@key_order); #unshift(@key_order,$number1); #unshift(@key_order,$number2); # Print header $column_count=0; foreach $key (@key_order) { $column_count++; # printf "%2d %-40.40s: %s %s\n", $column_count, $key, # $tot{$key}{'server'}, $tot{$key}{'arguments'}; # print "Comments: $tot{$key}{'comments'}\n" # if ($tot{$key}{'comments'} =~ /\w+/); } #print "\n"; $namewidth=$opt_skip_count ? 20 :25; $colwidth= $opt_relative ? 9 : 6; print_sep("="); #printf "%-$namewidth.${namewidth}s\|", "Operation"; $count = 1; foreach $key (@key_order) { # printf "%${colwidth}d\|", $count; $count++; } #print "\n"; #print_sep("-"); #print_string("Results per test:"); #print_sep("-"); foreach $key (sort {$a cmp $b} keys %op1) { # printf "%-$namewidth.${namewidth}s\|", $key; $first=undef(); foreach $server (@key_order) { print_value($first,$tot{$server}{$key}->[0],$tot{$server}{$key}->[1]); $first=$tot{$server}{$key}->[0] if (!defined($first)); } # print "\n"; } print_sep("-"); print_string("The results per operation:"); print_sep("-"); $luukcounter = 1; foreach $key (sort {$a cmp $b} keys %op) { next if ($key =~ /TOTALS/i); $tmp=$key; $tmp.= " (" . $tot1{$key_order[0]}{$key}->[1] . ")" if (!$skip_count); # printf "%-$namewidth.${namewidth}s\|", $tmp; $first=undef(); foreach $server (@key_order) { print_value($first,$tot1{$server}{$key}->[0],$tot1{$server}{$key}->[2]); $first=$tot1{$server}{$key}->[0] if (!defined($first)); } # print "\n"; $luukcounter++; } #print_sep("-"); $key="TOTALS"; #printf "%-$namewidth.${namewidth}s\|", $key; $first=undef(); foreach $server (@key_order) { # print_value($first,$tot1{$server}{$key}->[0],$tot1{$server}{$key}->[2]); $first=$tot1{$server}{$key}->[0] if (!defined($first)); } #print "\n"; #print_sep("="); &make_gif; exit 0; # # some format functions; # sub print_sep { my ($sep)=@_; # print $sep x ($namewidth + (($colwidth+1) * $column_count)+1),"\n"; } sub print_value { my ($first,$value,$flags)=@_; my ($tmp); if (defined($value)) { if (!defined($first) \|\| !$opt_relative) { $tmp=sprintf("%d",$value); } else { $first=1 if (!$first); # Assume that it took one second instead of 0 $tmp= sprintf("%.2f",$value/$first); } if (defined($flags)) { $tmp="+".$tmp if ($flags =~ /\+/); $tmp="?".$tmp if ($flags =~ /\?/); } } else { $tmp=""; } $tmp= " " x ($colwidth-length($tmp)) . $tmp if (length($tmp) < $colwidth); # print $tmp . "\|"; } sub print_string { my ($str)=@_; my ($width); $width=$namewidth + ($colwidth+1)$column_count; $str=substr($str,1,$width) if (length($str) > $width); # print($str," " x ($width - length($str)),"\|\n"); } sub usage { exit(0); } ########################################### ########################################### ########################################### # making here a gif of the results ... (lets try it :-)) # luuk .... 1997 ########################################### ## take care that $highest / $giftotal / $gifcount / $luukcounter ## are getting there value above ... so don't forget them while ## copying the code to some other program .... sub make_gif { &gd; # some base things .... &legend; # make the nice legend &lines; # yep sometimes you have to print some lines &gif("gif/benchmark2-".$opt_cmp); # and finally we can print all to a gif file ... } ##### mmm we are finished now ... # first we have to calculate some limits and some other stuff sub calculate { # here is the list which I have to know to make everything ..... # the small border width ... $sm_border = # the border default $border = # the step default ... if it must be calculated then no value $step = # the highest number $highest = # the max length of the text of the x borders $max_len_lb= # the max length of a legend entry $max_len_le= # number of entries in the legend $num_legen = # the length of the color blocks for the legend $legend_block= # the width of the gif ...if it must be calculated - no value $width = # the height of the gif .. if it must be calculated - no value $height = # 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->widthlength($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_border2),$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); }

| ver. 1.4 | Github | . | PHP 5.3.8 | Генерация страницы: 0.12 | proxy | phpinfo | Настройка