一回の処理で、２回以上データベースに対してアクセスできない？？(perlDBIを使用)

質問

質問があるのですが、よろしくお願いします。

use DBI;
$dbuser = 'root';
$passwd = 'abc';
$db = DBI->connect('DBI:mysql:DB:localhost',$dbuser, $passwd);

$prepare = "select MAIL from user where USER_ID = $userid";
$sth->prepare("$prepare");
$sth->execute;
@user = $sth->fetchrow_array;
$sth->finish;

while( ($key, $value) = each %in ){
$sth = $db->prepare("UPDATE user SET $key = '$value' where USER_ID = $in{userid}");
$sth->execute;
$sth->finish;
}
$db->disconnect;

という処理を行わせたいのですが、どうもUPDATE文の辺りで、処理が止まってしまっているようなのです。select文はしっかり実行されている形跡があるのですが、１回の処理で２回以上データベースに対してアクセスすることは出来ないのでしょうか？

どなたか分かる方いらっしゃいましたらご教授のほどよろしくお願いします。

回答No.1

moon_night · ベストアンサー

$prepare = "select MAIL from user where USER_ID = $userid";
$sth->prepare("$prepare");

これを↓

$prepare = "select MAIL from user where USER_ID = $userid";
$sth = $db->prepare("$prepare");

としてもだめですかね？

お礼

ありがとうございます、ただのポカミスだったようですm(__)m