我正在尝试使用 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]
东西上抛出了一个空数组引用错误。我怎样才能简单地检查它是否返回行或现在?