10000個テーブルの作成と削除のテスト
戻る
<![CDATA[
# tables_test.pl
# 10000個テーブルの作成と削除のテスト
use strict;
use DBI;
my(%t,$n);
#print "This is tables_test.pl.\n";
# データベースに連結(jié)
$t{dsn} = "DBI:mysql:host=localhost;database=cookbook";
$t{dbh} = DBI->connect($t{dsn}, "cbuser", "cbpass") or die "Cannot connect to server\n";
$t{dbh}->do("SET NAMES utf8");
if(!$t{dbh}){
print "SQL read ERROR!\n";
exit;
}
$t{DEL} = 1;
$t{end} = 10000;
if ( $t{DEL} == 1 ) {
for $n ( 1 .. $t{end} ) {
$t{NO5} = sprintf("%06d",$n);
$t{table} = 'a' . $t{NO5};
# 同名テーブルが存在している場合,削除
$t{sql} = 'DROP TABLE IF EXISTS ' . $t{table} . ';';
$t{dbh}->do($t{sql});
print "The table $t{table} is deleted.\n";
}
} else {
for $n ( 1 .. $t{end} ) {
$t{NO5} = sprintf("%06d",$n);
$t{table} = 'a' . $t{NO5};
# 同名テーブルが存在している場合,削除
$t{sql} = 'DROP TABLE IF EXISTS ' . $t{table} . ';';
$t{dbh}->do($t{sql});
# テーブルを作成する
$t{sql} = 'CREATE TABLE ' . $t{table};
$t{sql} .= ' (';
$t{sql} .= 'id INT AUTO_INCREMENT,';
$t{sql} .= 'time date,';
$t{sql} .= 'PRIMARY KEY (id));';
$t{dbh}->do($t{sql});
print "The table $t{table} is created.\n";
}
}
$t{dbh}->disconnect;
__END__;
]]>
戻る
翁牛特旗|
安图县|
凤城市|
曲麻莱县|
广州市|
耒阳市|
英山县|
扎赉特旗|
霸州市|
宜城市|
吴堡县|
田阳县|
南和县|
城步|
准格尔旗|
马公市|
永胜县|
普兰店市|
德格县|
江源县|
禹城市|
西林县|
高淳县|
金沙县|
延安市|
桓仁|
得荣县|
南雄市|
肃南|
利川市|
南宁市|
莒南县|
安龙县|
广昌县|
镇沅|
嘉定区|
兰溪市|
宁明县|
陈巴尔虎旗|
松滋市|
宁强县|