我的代码如下。代码运行正常到CREATE TABLE
语句。
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
use DBI;
$dbh = DBI->connect("DBI:mysql:DBNAME:DatabaseHost", "DATABASE",
"PASSWORD");
$dbh->do("CREATE TABLE IF NOT EXISTS tt1 (
id INT(4) NOT NULL AUTO_INCREMENT,
name VARCHAR(10),
surname VARCHAR(10),
company_name VARCHAR(20),
building_number VARCHAR(4),
address VARCHAR(100),
postcode VARCHAR(6)
)");
print "table created";
为了在列上使用AUTO_INCREMENT
,必须将其声明为表的主键。
$dbh->do("CREATE TABLE IF NOT EXISTS tt1 (
id INT(4) NOT NULL AUTO_INCREMENT PRIMARY KEY,
name VARCHAR(10),
surname VARCHAR(10),
company_name VARCHAR(20),
building_number VARCHAR(4),
address VARCHAR(100),
postcode VARCHAR(6)
)");