同時生成許多表格的程序
戻る
<![CDATA[
# make_ptables.pl
# 生成零件Tables
use strict;
use DBI;
my(%t,$n,@fld);
print "This is make_ptables.pl.\n";
# 打開主機名文件
open(IN,"main_type1_tmp.txt") or die "Can't open the file main_type1_tmp.txt.\n";
while(<IN>){
chop;
@fld = split(/==>/);
next unless $fld[1];
$t{NO5} = sprintf("%06d",$fld[0]);
push(@{ $t{ID} },$t{NO5});
}
close(IN);
# 連接數(shù)據(jù)庫
$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;
}
for $n ( 0 .. $#{ $t{ID} } ) {
#for $n ( 0 .. 0 ) {
$t{NO5} = $t{ID}[$n];
#
# $t{table1} = 'a' . $t{NO5};
# $t{sql} = 'DROP TABLE IF EXISTS ' . $t{table1} . ';';
# $t{dbh}->do($t{sql});
# $t{sql} = 'CREATE TABLE ' . $t{table1};
# $t{sql} .= ' (';
# $t{sql} .= 'id INT AUTO_INCREMENT,';
# $t{sql} .= 'series VARCHAR(100),';
# $t{sql} .= 'group1 VARCHAR(100),';
# $t{sql} .= 'dwg1 VARCHAR(100),';
# $t{sql} .= 'memo TEXT,';
# $t{sql} .= 'PRIMARY KEY (id));';
# $t{dbh}->do($t{sql});
#
$t{table2} = 'a' . $t{NO5};
$t{sql} = 'DROP TABLE IF EXISTS ' . $t{table2} . ';';
$t{dbh}->do($t{sql});
$t{sql} = 'CREATE TABLE ' . $t{table2};
$t{sql} .= ' (';
$t{sql} .= 'id INT AUTO_INCREMENT,';
$t{sql} .= 'name VARCHAR(50),';
$t{sql} .= 'code VARCHAR(50),';
$t{sql} .= 'group_id INT,';
$t{sql} .= 'dwg_id INT,';
$t{sql} .= 'price TEXT,';
$t{sql} .= 'oem TEXT,';
$t{sql} .= 'memo TEXT,';
$t{sql} .= 'PRIMARY KEY (id));';
$t{dbh}->do($t{sql});
print "The table $t{table2} is created.\n";
# print "The tables $t{table1} and $t{table2} are created.\n";
# print "The tables $t{table1} and $t{table2} are deleted.\n";
}
$t{dbh}->disconnect;
__END__;
]]>
戻る
察隅县|
秭归县|
陆丰市|
定陶县|
孝感市|
苍梧县|
神池县|
徐闻县|
平定县|
拜泉县|
吐鲁番市|
油尖旺区|
丽水市|
水城县|
双峰县|
大化|
常山县|
巴青县|
北安市|
岫岩|
宁津县|
黎城县|
万源市|
阆中市|
大洼县|
阿勒泰市|
华安县|
宁明县|
西盟|
临夏市|
陵川县|
张家港市|
桃园县|
阿拉善盟|
潮安县|
雷山县|
静乐县|
孝义市|
乌审旗|
穆棱市|
包头市|