DBの検索

質問

#!C:\Perl\bin\perl
use DBI;

$shouhinmei="手袋";

$db=DBI->connect("DBI:mysql:example_DB:localhost","user","password",{RaiseError => 0,PrintError => 1});

if(!$db){
print "接続は失敗です\n";
exit;
}

$sql="select * from shouhin_tbl";
$sql.="where shouhinmei='" . $shouhinmei . "'";

$sth=$db->prepare($sql);
if(!$sth->execute){
print "SQLの失敗です\n";
exit;
}
***********************************

***********************************
$sth->finish;

$db->disconnect;

この***で囲まれた部分に、次のような処理を行いたいのですが、どのように書いたらいいのでしょうか。
『selectのSQLが成功したとき、DBのshouhinmeiフィールドに「手袋」がすでにあるならば、そのshouhinmei_idをブラウザに表示させ、』
shouhinmeiフィールドに「手袋」がなければ、
$sql="insert into shouhin_tbl(shouhinmei)";
$sql.="values('" . $shouhinmei . "')";
として追加させたいのですが、『』はどう書いたらいいか教えてください。
よろしくお願いします。

回答No.1

kusukusu · ベストアンサー

$num_rows = $sth->rows;
で、SELECTされたデータの行数を拾い、行数がゼロでないならIDを表示、ゼロでないならインサート
と言うロジックでいけると思います。

お礼

kusukusu様、お礼が遅くなりまして申し訳ありませんでした。教えてくださった$num_rows = $sth->rows;
を用いてできました。本当にありがとうございました。

回答No.2

kusukusu

思いっきり間違ってますね(^^;

×行数がゼロでないならIDを表示、ゼロでないならインサート

○行数がゼロならIDを表示、ゼロでないならインサート