如何使用 Perl 的 DBD::Pg 插入空字段？

Question

我有一个 Perl 脚本根据管道分隔的文本文件将数据插入 Postgres。有时，字段为空（如预期的那样）。但是，Perl 将这个字段变成了一个空字符串，并且 Postgres 的插入语句失败了。

这是一段代码：

use DBI;

#Connect to the database.
$dbh=DBI->connect('dbi:Pg:dbname=mydb','mydb','mydb',{AutoCommit=>1,RaiseError=>1,PrintError=>1});

#Prepare an insert.
$sth=$dbh->prepare("INSERT INTO mytable (field0,field1) SELECT ?,?");

while (<>){
    #Remove the whitespace
    chomp;

    #Parse the fields.
    @field=split(/\|/,$_);

    print "$_\n";

    #Do the insert.
    $sth->execute($field[0],$field[1]);
}

如果输入是： 罢工>

一个|1 乙| c|3

编辑：改用这个输入。

一个|1|x b||x c|3|x

它将在b| 失败。

DBD::Pg::st 执行失败：错误：整数输入语法无效：“”

我只想让它在 field1 上插入一个空值。有什么想法吗？

编辑：我在最后一分钟简化了输入。由于某种原因，旧的输入实际上使它起作用。所以现在我将输入更改为会使程序失败的东西。另请注意，field1 是可为空的整数数据类型。

Answer 1

我不确定您是否测试了粘贴的代码和数据是否一起使用，它们适用于 Perl 5.10.1、DBD::Pg 2.15.1 和 Postgres 8.4。此外，您应该使用严格和警告，而不是依赖于变量的包范围。

如果您更改代码和数据以使用三个或更多字段，将非终端字段留空，则可以从 DBD::Pg 触发错误。在执行准备好的语句之前，在代码中添加这样的一行：

map { $_ eq '' and $_ = undef } @field;

将@field 中的空字符串映射到undef

Answer 2

DBI 包将undef 映射到NULL。 （Perl 的定义与错误逻辑实际上非常适合 SQL 的三元逻辑。）

因此，在您的 while 循环中，只需检查指示的字段是否为空字符串，如果是，则改为 undef：

while (<>){
    ...
    #Parse the fields.
    @field=split(/\|/,$_);

    if ( $field[1] eq '' ) { 
        # handle NULLs
        $field[1] = undef;
    }

    #Do the insert.
    $sth->execute($field[0],$field[1]);
}

Answer 3

undef 通常映射为 NULL。看起来您插入的空字符串与undef 不同。