如何在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]); 
} 

如果輸入的是：

 
a|1 
b| 
c|3 

編輯：改用此輸入。

 
a|1|x 
b||x 
c|3|x 

它會在b|失敗。

DBD::Pg::st execute failed: ERROR: invalid input syntax for integer: ""

我只是想讓它在field1上插入一個空字符。有任何想法嗎？

編輯：我在最後一分鐘簡化了輸入。舊的輸入實際上是由於某種原因而起作用的。所以現在我改變了輸入，以使程序失敗。另請注意，field1是一個可爲空的整型數據類型。

Answer 1

我不知道你是否測試你粘貼代碼和數據一起，他們用Perl 5.10.1，DBD :: PG 2.15.1和Postgres 8.4工作。你也應該使用strict和warnings，而不是依賴你的變量的包範圍。

如果您更改您的代碼和數據以使用三個或更多個字段，而讓非終端一個爲空，則可以從DBD :: Pg觸發該錯誤。執行準備好的語句之前像這樣的行添加到您的代碼：

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

要@field空字符串映射到民主基金

Answer 2

undef通常映射到NULL。看起來你插入的空字符串與undef不一樣。

Answer 3

該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]); 
}