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 ...選擇使用一些替代函數注入在選擇你的修改緩存爲您的表中的列名。

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...";