DBI如何判断数据表中某字段是否存在

jeanne506

用DBI模块连接mysql，要查询表中某字段是否存在，该怎么实现？

比如：表结构为
id              type
apple        fruit
banana     fruit
potato      vegetable

判断表中是否已经存在apple。谢谢大家了！

DQP

select 1 from balabal where id = 'apple'

jeanne506

这个是SQL语句，可能我没有说清楚，我想在perl里实现这个，我的perl是这样写的：

use DBI;
use strict;

my $dbh = DBI->connect($dsn,$user,$passwd,{RaiseError=>1});
my $sth = $dbh->prepare("SELECT id FROM table1 WHERE id='orange") or
                die("Cannot prepare statement:",$dbh->errstr(),"\n");
$sth->execute() or die("Cannot execute statement:",$sth->errstr(),"\n");

if ($sth) {
        my $ref = $sth->fetchrow_array;
        print "$ref\n";
}
else {
        print "orange is not exist.\n";
}
$sth->finish();
$dbh->disconnect();

运行后的结果应该是输出： orange is not exist.
可实际的结果是空的，什么都没有。

还是我这样写不对呢？

Perl_Er

if ($sth) {
        my $ref = $sth->fetchrow_array;
        print "$ref\n";
}
else {
        print "orange is not exist.\n";
}
你这里是执行的上面的分支，所以什么都没有。
if ($sth) 是为真的

jeanne506

这个就是我的问题所在了，如果不是判断$sth，
应该用什么方法来判断得出orange不存在并返回一个boolean值呢？

Perl_Er

就在这里判断：$ref = $sth->fetchrow_array;
这个不是你查询的结果吗，从结果里面看有没有就可以了嘛

jeanne506

哦，是这样的，可以实现了。
多谢Perl_Er 的耐心指点！！