[pgsql-jp: 25001] UPDATEが

[佐藤 正樹]

はじめまして、佐藤と申します。
postgresqlとゆうよりｓｑｌの初心者です。
perl+postgresqlで以下のソースを作成しました。
しかし、$row = ($res -> ntuples)で２件あることを確認しましたが、
１件処理したところで、終了してしまいます。
selectの書き方が悪いのかupdateの書き方が悪いのか分かりませんが・・・・。
どなたかアドバイスいただけないでしょうか。

#!/usr/bin/perl
use Pg;
require "/............cgi";
$conn = Pg::connectdb($DBNM);
$res = $conn-> exec("SELECT r_m_id,r_d_id,r_p_id FROM reserv_t WHERE
r_mail_f = 'no'");
while (@item = $res->fetchrow) {
   $res = $conn-> exec("UPDATE reserv_t SET r_mail_f = 'yes' WHERE
r_m_id=$item[0] and r_d_id=$item[1]  and r_p_id=$item[2] and r_new_f = 'yes'
");
}
尚、ソースを見やすくするため、エラー処理やその他の処理は外しました。