Jak wstawić puste pola z DBD :: Pg Perla?

Question

Mam skrypt Perl wstawiający dane do PostgreSQL według pliku tekstowego rozdzielanego potokami. Czasami pole ma wartość zerową (zgodnie z oczekiwaniami). Jednak Perl czyni to pole pustym łańcuchem, a instrukcja wstawiania Postgreatora nie powiedzie się.

Oto fragment kodu:

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 jeśli wejście jest:

 
a|1 
b| 
c|3 

EDIT: Za pomocą tego wejścia zamiast.

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

To się nie uda pod numerem b|.

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

Po prostu chcę wstawić pustą wartość na pole1. Jakieś pomysły?

EDYCJA: Uprościliśmy dane wejściowe w ostatniej chwili. Stare dane sprawiły, że działało z jakiegoś powodu. Teraz zmieniłem dane wejściowe na coś, co spowoduje awarię programu. Zauważ też, że field1 jest zerowym typem danych całkowitych.

Answer 1

nie jestem pewien, czy pan przetestowany swojej wklejony kod i dane razem, pracują z Perl 5.10.1, DBD :: Pg 2.15.1 i PostgreSQL 8.4. Powinieneś także używać ścisłych i ostrzeżeń i nie polegać na zakresie pakietów dla zmiennych.

Jeśli zmienisz swój kod i dane, aby użyć co najmniej trzech pól, pozostawiając pusty numer jeden, możesz wywołać błąd z DBD :: Pg. Dodaj linię podobnego do kodu przed wykonaniem przygotowane oświadczenie:

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

Aby odwzorować pustych strun w @field do undef

Answer 2

undef zwykle mapuje na NULL. Wygląda na to, że wstawiasz pusty ciąg, który nie jest taki sam jak undef.

Answer 3

Zestaw map DBI undef na NULL. (Zdefiniowanej Ness Perl vs. logiki fałszu jest rzeczywiście bardzo dobre dopasowanie do Trójka logiki SQL.)

Tak w pętli while, wystarczy sprawdzić, czy pole wskazane jest pusty ciąg znaków, a jeśli tak, sprawiają, że undef zamiast:

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

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

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