Perlコーディング初心者質問スレ Part 57

Perlコーディング初心 ..

145:nobodyさん
08/03/18 19:50:13
　my $sth=$dbh->prepare('INSERT INTO test('.join(',',keys %data).') VALUES('.join(',',map{'?'}(keys %data)).')');
　$sth->execute(map{$data{$_}}(keys %data));
適当にmapで記述したら、ここまで短くなりましたが、map{'?'}(keys %data)の辺りは、
もうちょっとスマートな方法がありそう…。

次ページ

続きを表示

1を表示