create table IF NOT EXISTS `AllRooms`( `id` int NOT NULL AUTO_INCREMENT PRIMARY KEY,
`集团KEYID` varchar(255),
`公司KEYID` varchar(255),
`项目名称` varchar(255),
`网上项目名称` varchar(255),
`楼层` varchar(255),
`房号` varchar(255),
`面积` varchar(255),
`状态` varchar(255));
用该语句在perl中执行创建表。
my $data_base = "DBI:mysql:$db_name:$location:$port";
my $dbh3=DBI -> connect($data_base,$db_user,$db_pass);
my $data_str=encode("utf-8",decode("gbk",$_[0]));
my $sth=$dbh3->prepare($data_str);
open(FILE,">createtable.txt&#