perl - Perl 插入 MySQL 数据库

Question

我有的：

• 数据库
  
• 一个有 9 列的表。
• 使用需要插入表中的值生成的数组。

注意：自动生成的数组每次都会有不同的长度，但长度不会超过我在表中的列数。

列名称将类似于 field1、field2、field3 等，其中名称将始终与单词 field 一起，然后是数字。

我认为这可以使用 Perl 的map函数来完成，但我不擅长使用这个函数并且需要一些指导。

我想做这样的事情：

while ( (@Row) = $sql_stmt_h->fetchrow_array() ) {
 my $sql="
     INSERT INTO tablename (field$x) 
     VALUES (map function here ... which also needs to increment the $x in field$x so that it moves onto the next column name which would be field2 if we put the first value in field1. )";
}

Answer 1

?创建您的 Insert 语句以使用数据的占位符插入到所有字段。

my $sql="
 INSERT INTO tablename (field1 field2 field3 field4 field5 field6 field7 field8 field9 ) 
 VALUES (? ? ? ? ? ? ? ? ?)";
my $insert_sth = $dbh->prepare($sql);

然后做类似的事情。

my @new_data = get_array_with_random_length();
splice(@new_data, @new_data, 0, undef x (9 - @new_data)); #pad @newdata to 9 elements w/ undefs (DBI will xlate to NULL)
$insert_sth->execute(@new_data);