Perl DBI 插入和选择

Question

我想从表中复制一条记录，修改记录中的一些字段并插入到同一个表中。该表有 90 列。

考虑在一个语句中使用 insert..select 但有 90 列，我需要在选择查询中告诉列名。我怎样才能在 perldbi 中以更好的方式做到这一点。请给我一个例子。

Answer 1

使用 NAME statement attribute 获取并缓存表的列名

my $sth = $dbh->prepare('SELECT * FROM my_table where 1=0');
$sth->execute;
my $cols = $sth->{NAME};

然后使用 $cols 构造您的 insert...select 使用一些替换函数将您的修改注入(inject)到选择中。

my %mods_for_column = ( 'foo' => 'foo+10', 'bar' => 'trim(bar)' );
my $inscols = join(',', @$cols);
my $selcols = join(',', 
  map { exists($mods_for_column($_)) ? $mods_for_column($_) : $_ } @$cols
);
my $sql = "insert into my_table ($inscols) select $selcols from my_table where mumble...";