sql - 用于 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]);
}