同時生成許多表格的程序
戻る
<![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__;
]]>
戻る
前郭尔|
贡觉县|
东乌珠穆沁旗|
永清县|
松原市|
嘉禾县|
芜湖市|
武乡县|
平舆县|
简阳市|
从化市|
遵义县|
新干县|
清丰县|
德化县|
东明县|
高平市|
福泉市|
荆门市|
景东|
丹棱县|
会理县|
松江区|
额尔古纳市|
桑植县|
通辽市|
和顺县|
缙云县|
五大连池市|
开远市|
湟源县|
梁山县|
凤庆县|
晋中市|
丹东市|
宁陵县|
湘潭县|
芦山县|
赫章县|
井研县|
嘉鱼县|