Insert DBI Perl et sélectionnez

Question

Je souhaite copier un seul enregistrement d'une table, modifier certains des champs de l'enregistrement et les insérer dans la même table. La table a 90 colonnes. Pensée d'utiliser insert..select dans une instruction mais il y a 90 colonnes et j'ai besoin de dire le nom de la colonne dans la requête de sélection. Comment puis-je le faire d'une meilleure manière à Perldbi. Pls me donne un exemple.

Answer 1

Fetch et mettre en cache les noms de colonnes pour votre table à l'aide NAME statement attribute

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

puis utilisez $ pour construire Col. votre insert ... select en utilisant une fonction de remplacement pour injecter vos modifications dans la sélection.

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