Я пытаюсь в основном выполнить поиск по базе данных с помощью Perl, чтобы узнать, есть ли элемент с определенным идентификатором. Этот поиск не может вернуть ни одной строки, но может и вернуть одну.
У меня есть следующий код:
my $th = $dbh->prepare(qq{SELECT bi_exim_id FROM bounce_info WHERE bi_exim_id = '$exid'});
$th->execute();
if ($th->fetch()->[0] != $exid) {
...
По сути, это пытается увидеть, был ли возвращен идентификатор, и если это не так, продолжить работу со сценарием. Но он выдает ошибку ссылки массива Null на вещь $th->fetch()->[0]
. Как я могу просто проверить, вернул ли он строки или сейчас?