Perlコーディング初心者質問スレ Part 57at PHPPerlコーディング初心者質問スレ Part 57 - 暇つぶし2ch145: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)の辺りは、 もうちょっとスマートな方法がありそう…。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch