我想用Perl在数据库中进行搜索,以确定是否存在具有特定ID的项目。这个搜索可能不返回任何行,但也可能返回一行。
我有以下代码:
my $th = $dbh->prepare(qq{SELECT bi_exim_id FROM bounce_info WHERE bi_exim_id = '$exid'});
$th->execute();
if ($th->fetch()->[0] != $exid) {
...
基本上,这个代码尝试检查ID是否被返回,如果没有返回,则继续执行脚本。但是,在$th->fetch()->[0]
处出现了一个空数组引用错误。
我该如何简单地检查它返回了行还是没有返回?