print-limit-table
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:11k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. #!/usr/bin/perl
  2. # Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
  3. #
  4. # This library is free software; you can redistribute it and/or
  5. # modify it under the terms of the GNU Library General Public
  6. # License as published by the Free Software Foundation; either
  7. # version 2 of the License, or (at your option) any later version.
  8. #
  9. # This library is distributed in the hope that it will be useful,
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12. # Library General Public License for more details.
  13. #
  14. # You should have received a copy of the GNU Library General Public
  15. # License along with this library; if not, write to the Free
  16. # Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  17. # MA 02111-1307, USA
  18. #
  19. # Output a html table with a compare of all servers
  20. #
  21. $cmp_server="mysql"; # Get limit names from here
  22. $full_html=1;
  23. $opt_txt=0;
  24. if ($#ARGV < 0)
  25. {
  26.   @ARGV=glob("limits/*.cfg");
  27.   $skip_header=0;
  28. }
  29. else
  30. {
  31.   $skip_header=1;
  32. }
  33. foreach (@ARGV)
  34. {
  35.   /([^/.]*).cfg$/;
  36.   $server=$1;
  37.   if ($server eq $cmp_server)
  38.   {
  39.     unshift(@limits,read_config_data($server,$_));
  40.   }
  41.   else
  42.   {
  43.     push(@limits,read_config_data($server,$_));
  44.   }
  45. }
  46. @global_limits= sort keys(%all_limits);
  47. find_match('group_functions|functions'); # Don't report these
  48. if ($full_html)
  49. {
  50.   if (!$skip_header)
  51.   {
  52.     print "<!doctype HTML public "-//W3O//DTD W3 HTML3.0//EN"><HTML>";
  53.   }
  54.   print <<EOF;
  55. <!doctype HTML public "-//W3O//DTD W3 HTML3.0//EN"><HTML>
  56. <HEAD><TITLE>Database comparison table</TITLE></HEAD>
  57. <BODY>
  58. <center><h3>Database comparison table generated with <B>crash-me</B></h3></center>
  59. <table><tr><td><IMG SRC="icons/mysql-03.gif" ALT=logo></td>
  60. <td>You can get a copy of <B>crash-me</B> from the MySQL 3.23 distribution at
  61. <A HREF="http://www.mysql.com">http://www.mysql.com</A>.
  62. </td></tr></table>
  63. <br>
  64. <strong>crash-me</strong> is a program that automatically detects
  65. limits and capabilities in a SQL server. We at TCX have worked very
  66. hard to make crash-me as fair and accurate as possible, but there is
  67. always a small possibility that some particular tests fails for some
  68. database, even if the database has the capability. We are always
  69. willing to correct this as soon as this comes to our attention.  Some
  70. tests may fail because the database in questions does not follow
  71. <B>ANSI SQL 99</B> or <B>ODBC 3.0</B> but in this case we regard this
  72. as a failure in the database.
  73. <br><br>
  74. Note that crash-me test the <B>ODBC</B> functionality by executing
  75. SQL commands through the perl DBD driver.  As some SQL servers implements
  76. the <B>ODBC</B> functionality in the <B>ODBC</B> driver, crash-me may
  77. tell you that the SQL server doesn't support some functionality, even
  78. if this is supported when you are using the SQL server through <B>ODBC</B>.
  79. <br><br>
  80. Note that even if crash-me reports that some feature is missing, not
  81. supported, or doesn't work it doesn't mean that the SQL server
  82. doesn't follow the SQL standard or that you can't do the operation
  83. in some other way.  crash-me just tells you how the SQL server works
  84. if you send it some specific query.  The result is however often useful
  85. for applications writers that tries to write portable code and needs to be
  86. aware of the differences between different SQL servers.
  87. <br><br>
  88. TCX is trying to add as much tests to the crash-me program as they can
  89. but it's always possible that some database vendor specific functions
  90. / queries aren't tested. If you find some entries not tested on a
  91. database please let us know and try to patch the crash-me program your
  92. self or give us some example queries so we can add those entries. We
  93. are always open for suggestions for adding things to the crash-me
  94. program.  The crash-me program is also our input reference for the
  95. MySQL benchmark program.<br>
  96. <B>Note:</B>
  97. The crash-me table is generated from databases started with default
  98. parameters.  If this is not the case, this is noted in the comment row.
  99. Some detected limits may also be configurable, OS dependent, depend of the
  100. Perl DBI driver or depending on the license of the used database version.
  101. <BR><BR>
  102. The following markers are used in the comparison table
  103. <table border=1>
  104. <tr><th>Marker</th><th>Description</th></tr>
  105. <tr><td><IMG SRC="images/ok.gif" WIDTH=20 HEIGHT=16 ALT="yes"></td>
  106. <td>Function is supported</td></tr>
  107. <tr><td><IMG SRC="images/no.gif" WIDTH=14 HEIGHT=14 ALT="no"></td>
  108. <td>Function is not supported</td></tr>
  109. <tr><td><IMG SRC="images/error.gif" WIDTH=20 HEIGHT=16 ALT="error"></td>
  110. <td>Function exists but didn't return expected result. This usually means that
  111. the database is using some non standard extension for the option in question</td></tr>
  112. <tr><td>ignored</td><td>Function doesn't give an error from the server but it
  113. doesn't do anything.  One can probably do the same action with some other
  114. command</td></tr>
  115. <tr><td>nonstandard</td><td>Function exists but doesn't work according to
  116. <B>ANSI SQL 92</B> or <B>ODBC 3.0</B></td></tr>
  117. <tr><td>&nbsp;</td><td>Not relevant or not tested with the database</td></tr>
  118. <tr><td>+number</td><td>At least <b>number</b> operations is supported</td></tr>
  119. <tr><td><IMG SRC="images/warning.gif" WIDTH=28 HEIGHT=28 ALT="warning"></td>
  120. <td><B>Anyone with normal access to the database server can take it down, possible
  121. forever!</B></td> </table>
  122. <center><h3>The <B>crash-me</B> comparisons</h3></center>
  123. EOF
  124. }
  125. print "<TABLE BORDER=2><TR ALIGN=left>n";
  126. #
  127. # printer server names
  128. #
  129. $columns=$#limits+2;
  130. print "<th>Function</th>n";
  131. foreach $server (@limits)
  132. {
  133.   print "<td>$server->[1]->{'server_version'}</td>";
  134.   $server->[1]->{'server_version'} =~ /^(S*)/;
  135.   push(@server_names,$1);
  136. }
  137. find_match("server_version"); # Mark used
  138. print "</tr>n";
  139. print_match("Crash-me information",'crash_me|operating_system|user_comment',undef(),1);
  140. print_match("ANSI SQL 92 types","type_sql");
  141. print_match("ODBC 3.0 types","type_odbc");
  142. print_match("Other types","type_extra");
  143. print_match("Constraints and type modifiers","constraint|foreign|primary|unique|default","alter|max_unique");
  144. print_match("ANSI SQL 92 functions","func_sql","group");
  145. print_match("ODBC 3.0 functions","func_odbc","group");
  146. print_match("Other functions","func_extra","group");
  147. print_match("Functions in WHERE","func_where","group");
  148. print_match("ANSI SQL 92 group functions","group_func_sql");
  149. print_match("Other group functions","group_func");
  150. print_match("Function use","NEG|minus_neg|like|null.*expr");
  151. print_match("Order by and group by","order|having|group");
  152. print_match("Join methods",'join|subqueries|multi_table|select_table_update');
  153. print_match("String handling","string|select_constant|quote_with|double_quotes|end_space");
  154. print_match("Quoting","quote");
  155. print_match("Name limits","name","alter");
  156. print_match("Index limits",'index|primary|unique');
  157. print_match("Type limits",'char|float|text_size|date|end_space','atomic');
  158. print_match("Expressions",'expression|conditions|select_limit|binary|hex|cast|logical|true_false');
  159. print_match("Comments",'comment');
  160. print_match("ALTER TABLE",'alter');
  161. print_match("CREATE and DROP",'create|drop|rowid|temporary|domains|truncate');
  162. print_match("SELECT",'alias|compute|select|table_wildcard');
  163. print_match("Sets",'intersect|minus|union|except');
  164. print_match("INSERT",'insert');
  165. print_options("Other features");
  166. print_match("Other limits",'S');
  167. print "</table>n";
  168. if ($full_html)
  169. {
  170.   print <<EOF;
  171. <BR>
  172. This information is provided by TCX so one can get the real limitations from
  173. the database server (not the information from sales managers!). Hopefully the
  174. above information will make it easier for you to find a database server that
  175. has the functionality you need and that you can rely on!
  176. <BR><BR>
  177. TCX will continue to extend <b>crash-me</b> and add more database servers
  178. to the above chart. We are also very interested in new tests so if you have
  179. any suggestions, please mail us (or even better, send us code).
  180. <BR>
  181. We are also working on the <B>MySQL</B> <A HREF ="/benchmark.html">benchmark</A>
  182. to help users see how fast a database is when doing different typical things.
  183. <br> 
  184. <IMG SRC="images/eyesleft.gif" HEIGHT=9 WIDTH=582 ALT="=============================================="> 
  185. <ADDRESS> You can direct questions about crash-me and the benchmark to the
  186. <A HREF="http://www.tcx.se/mail.html">MySQL mailing list</A>. 
  187. </ADDRESS> 
  188. </BODY></HTML> 
  189. EOF
  190. } exit 0;
  191. sub read_config_data
  192. {
  193.   my ($server,$file)=@_;
  194.   my (%limits,%prompts);
  195.   open(CONFIG_FILE,"<$file") ||
  196.       die "Can't open configure file $filen";
  197.   while (<CONFIG_FILE>)
  198.   {
  199.     chomp;
  200.     if (/^(S+)=([^#]*[^#s])s*(# .*)*$/)
  201.     {
  202.       $all_limits{$1}=1;
  203.       $limits{$1}=$2;
  204.       $prompts{$1}=length($3) ? substr($3,2) : "";
  205.     }
  206.     elsif (!/^s*$/ && !/^#/)
  207.     {
  208.       die "Wrong config row: $_n";
  209.     }
  210.   }
  211.   close CONFIG_FILE;
  212.   return ([$server,%limits,%prompts]);
  213. }
  214. sub find_match
  215. {
  216.   my ($find,$find_not)=@_;
  217.   my ($key,@res);
  218.   foreach $key (@global_limits)
  219.   {
  220.     if ($key =~ /$find/ && (!defined($find_not) || !($key =~ /$find_not/)))
  221.     {
  222.       push(@res,$key);
  223.       $key="";
  224.     }
  225.   }
  226.   return @res;
  227. }
  228. sub print_match
  229. {
  230.   my ($header,$match,$not_match,$no_server_names)=@_;
  231.   my ($key);
  232.   if ($opt_txt)
  233.   {
  234.     print "n$headern";
  235.   }
  236.   else
  237.   {
  238.     print "<tr><th colspan=$columns ALIGN=center>$header</th></tr>n";
  239.   }
  240.   print_server_names() if (!$no_server_names);
  241.   foreach $key (find_match($match,$not_match))
  242.   {
  243.     print_key($key,$key eq "crash_me_safe" ? 1: 0);
  244.   }
  245. }
  246. sub print_options
  247. {
  248.   my ($header)=@_;
  249.   if ($opt_txt)
  250.   {
  251.     print "n$headern";
  252.   }
  253.   else
  254.   {
  255.     print "<tr><th colspan=$columns ALIGN=center>$header</th></tr>n";
  256.   }
  257.   print_server_names();
  258.   foreach $key (@global_limits)
  259.   {
  260.     if ($key && !($limits[0]->[1]{$key} =~ /^d+$/))
  261.     {
  262.       print_key($key,0);
  263.       $key="";
  264.     }
  265.   }
  266. }
  267. sub print_key
  268. {
  269.   my ($key,$fatal)=@_;
  270.   my ($i,$server,$option,$tmp);
  271.   $option=$key;
  272.   for ($i=0 ; $i < $columns ; $i++)
  273.   {
  274.     if ($limits[$i]->[2]{$key})
  275.     {
  276.       $option=$limits[$i]->[2]{$key};
  277.       last;
  278.     }
  279.   }
  280.   $option =~ s/>/&gt;/g; 
  281.   $option =~ s/</&lt;/g; 
  282.   if ($opt_txt)
  283.   {
  284.     print "n$optiont";
  285.     foreach $server (@limits)
  286.     {
  287.       $tmp=$server->[1]->{$key};
  288.       $tmp="yes"  if ($tmp eq "yes");
  289.       $tmp="no"   if ($tmp eq "no" && !$fatal);
  290.       $tmp="warning" if ($tmp eq "no" && $fatal);
  291.       $tmp="error" if ($tmp eq "error");
  292.       $tmp="" if (!defined($tmp) || $tmp eq "");
  293.       print "t$tmp";
  294.     }
  295.   }
  296.   else
  297.   {
  298.     $option =~ s/ /&nbsp;/g;
  299.     print "<tr><td>$option</td>";
  300.     foreach $server (@limits)
  301.     {
  302.       $tmp=$server->[1]->{$key};
  303.       $tmp="<IMG SRC="images/ok.gif" WIDTH=20 HEIGHT=16 ALT="yes">" if ($tmp eq "yes" && !$fatal);
  304.       $tmp="<IMG SRC="images/thumbs_up.gif" ALT="yes">" if ($tmp eq "yes" && $fatal);
  305.       $tmp="<IMG SRC="images/no.gif" WIDTH=14 HEIGHT=14 ALT="no">" if ($tmp eq "no" && !$fatal);
  306.       $tmp="<IMG SRC="images/warning.gif" WIDTH=28 HEIGHT=28 ALT="warning">" if ($tmp eq "no" && $fatal);
  307.       $tmp="<IMG SRC="images/error.gif" WIDTH=20 HEIGHT=16 ALT="error">" if ($tmp eq "error");
  308.       $tmp="&nbsp;" if (!defined($tmp) || $tmp eq "");
  309.       print "<td>$tmp</td>";
  310.     }
  311.     print"</tr>n";
  312.   }
  313. }
  314. sub print_server_names
  315. {
  316.   my ($server);
  317.   if ($opt_txt)
  318.   {
  319.     my $tab;
  320.     $tab="";
  321.     foreach $server (@server_names)
  322.     {
  323.       print "$tab$server";
  324.       $tab="t";
  325.     }
  326.     print "n";
  327.   }
  328.   else
  329.   {
  330.     print "<tr><th></th>";
  331.     foreach $server (@server_names)
  332.     {
  333.       print "<th>$server</th>";
  334.     }
  335.     print "</tr>n";
  336.   }
  337. }