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

Perlコーディング初心 ..

144:nobodyさん
08/03/18 19:26:34
内容が多いハッシュの値があって、それをデータベースに格納するのに、
そのままSQL文を書くと長いので
　my ( @n, @q, @p );
　foreach my $key ( keys %hash ) {
　　push @n, $key;
　　push @q, '?';
　　push @p, $hash{$key};
　}
　my $sth=$dbh->prepare('INSERT INTO test('.join(',',@n).') VALUES('.join(',',@q).')');
　$sth->execute(@p);
という形でSQL文を構築してデータを格納しているのですが、
もう少しスマートな方法は無いでしょうか？

次ページ