堤と申します。はじめまして。

// Wed, 27 Jun 2001 19:00:24 //
// [mysql 03845] update した件数をカウントしたい。 //
// MAO <mao@xxxxxxxxxx>さん // 曰く:

>にしかわともうします。
こんばんわ。

>現在、Linux上でMYSQL+DBI+Perlでプログラムを組んでいます。
>上記の場合、マッチしたのが1件で変更したのが、1件とわかるのですが、
>Perl上でその値を取得する場合はどのようにすればいいのでしょうか？

こんな感じでやると $rv に件数が戻り値として返ってくると思います。

#SQL構文設定 
 $stmt = "update tbl_a set serial = 2 where uid = 1";
# 準備したSQL構文をデータベース上で実行
 $rv = $dbh->do($stmt) || die "Cantprepare. Because of $DBI::errstr";


# updateの場合prepareよりdoの方が$sth->finish とかする必要がなくてオトクな感じです。


ヒットしなかった場合は'0E0'が返るようなので以下のように処理したりしています。
if ($rv ne '0E0') {
	…
}

環境はこんな感じです。
SunOS	5.6
MySQL	3.22.30
Perl	5.005_03 built for sun4-solaris

--
堤 徹: tutumi@xxxxxxxxxx