用于SQL查询的Perl串联

Question

我正在尝试使用Perl将CSV文件的内容传输到PostgreSQL中的表中。

我能够成功更新我的表，但是终端返回一个错误：

Use of uninitialized value in concatenation (.) or string
Syntax error near ","
INSERT INTO test VALUES (, '', '', '', '',, )

这是失败的代码：

for (my $i=0 ; $i<=50; $i++){
$dbh ->do("INSERT INTO test VALUES ('$LastName[$i]', '$Street[$i]', $Balance_account[$i])") ;

如果需要更多信息，请询问他们。 对不起，英语不好。

-托马斯

Answer 1

使用占位符，

for (my $i=0 ; $i<=50; $i++){
  $dbh->do("INSERT INTO test VALUES (?,?,?)",
    undef,
    $LastName[$i], $Street[$i], $Balance_account[$i]
  );
}

理想情况下，您应该准备查询并针对每组值执行查询，如下所示：

my $sth = $dbh->prepare('INSERT INTO test VALUES (?,?,?)');

for (my $i=0 ; $i<=50; $i++){
  $sth->execute($LastName[$i], $Street[$i], $Balance_account[$i]);
}

Answer 2

我的猜测是您的错误是由于未在插入中指定列名，而同时具有错误的编号/类型的列引起的。 我希望以下Perl代码不会出错：

for (my $i=0 ; $i<=50; $i++){
$dbh -> do("INSERT INTO test (lastname, street, balance) VALUES ('$LastName[$i]', '$Street[$i]', $Balance_account[$i])");

这是一个工作查询可能看起来像：

INSERT INTO test (lastname, street, balance)
VALUES
    ('Skeet', '100 Thatcher Street', 100.50);

通常，在插入时不包括列名是不明智的做法，因为即使正确使用它，以后也很容易中断。