求助：Perl连接MySQL时CREATE TABLE语句执行失败

首先，你的代码最大的问题是没有错误处理机制，DBI默认不会主动抛出错误，所以你根本不知道CREATE TABLE语句到底哪里出问题了。另外，MySQL里使用AUTO_INCREMENT的列必须被定义为主键（或者至少是唯一键，主键是标准合规的做法），你的id列只加了NOT NULL AUTO_INCREMENT但没设主键，这大概率是导致语句执行失败的核心原因。

第一步：添加错误处理并修正表结构 #

修改你的代码，开启DBI的错误抛出机制，同时修正CREATE TABLE语句的主键定义，这样能快速定位问题并解决：

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
use DBI;

# 连接时开启错误抛出，方便直接看到问题
my $dbh = DBI->connect(
    "DBI:mysql:DBNAME:DatabaseHost", 
    "DATABASE", 
    "PASSWORD",
    { RaiseError => 1, PrintError => 0 } # 开启主动抛错，关闭自动打印错误
) or die "数据库连接失败: " . DBI->errstr;

# 用eval捕获错误，避免脚本直接崩溃
eval {
    $dbh->do("CREATE TABLE IF NOT EXISTS tt1 (
        id INT(4) NOT NULL AUTO_INCREMENT PRIMARY KEY, -- 新增PRIMARY KEY，满足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";
};

# 如果执行出错，打印具体错误信息
if ($@) {
    print "创建表失败: " . $@;
}

# 记得关闭数据库连接
$dbh->disconnect;

其他可能的排查方向 #

• 检查用户权限：确保你使用的DATABASE账号拥有CREATE TABLE权限，权限不足会直接导致表创建失败。
• 确认目标数据库存在：连接字符串里的DBNAME必须是已经存在的数据库（你说前面代码正常，这条大概率可以排除，但还是可以验证下）。
• 字符集适配：如果你的业务需要支持特殊字符，可以在CREATE TABLE语句末尾加上字符集定义，比如DEFAULT CHARACTER SET utf8mb4 COLLATE utf8mb4_unicode_ci。

内容的提问来源于stack exchange，提问作者e dogan