为什么即使我的SQLite版本支持`CREATE TABLE IF NOT EXISTS`，我仍会收到DBD :: SQLite语法错误？

Question

我正在使用SQLite v3编写Perl脚本。 sqlite版本是3.3.6。

当我在命令行上运行sqlite时，它可以工作。 但是当我在Perl中执行相同的操作时，会引发此错误

DBD :: SQLite :: db失败：在“ NOT”附近：dbdimp.c 268行在文件行2675处语法错误（1）。

这是我在控制台上所做的：

$ sqlite3 test.db
SQLite version 3.3.6
sqlite> create table if not exists  DATA_STATUS_VALUE (TYPE TEXT PRIMARY KEY, Seq INTEGER);
sqlite> .tables AllJobs            LOCKSTAT_VALUE     test_run12_data
DATA_STATUS_VALUE  STATUS_VALUE       test_run12_lock

我使用的SQLite版本支持IF NOT EXISTS ，为什么会出现错误？

这是我的Perl代码：

#!/usr/bin/perl

use DBI;
my $driver = "SQLite";

$database = "test.db";
$dsn      = "DBI:$driver:dbname=$database";
$dbh      = DBI->connect( $dsn, undef, undef, { RaiseError => 1 } );

$dbh->do("CREATE TABLE IF NOT EXISTS DATA_STATUS_VALUE (TYPE TEXT PRIMARY KEY, Seq INTEGER);");

Answer 1

我使用的SQLite版本支持IF NOT EXISTS，那么为什么会出现错误？

因为DBD :: SQLite没有使用您已经安装的SQLite版本。 DBD :: SQLite捆绑了自己的SQLite版本 ； 除非您在编译时告诉它使用另一个版本，否则它将使用捆绑版本。

您可以通过运行以下命令找出DBD :: SQLite使用的SQLite版本：

perl -MDBD::SQLite -le'print $DBD::SQLite::sqlite_version'

对v3.3.0中的SQLite添加了对CREATE TABLE ... IF NOT EXISTS 的支持 。 您应该升级DBD :: SQLite，因为最新版本（1.50）与SQLite 3.10.2捆绑在一起。