基本的に、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 が返されたかどうかを確認し、返されていない場合はスクリプトを続行します。しかし、それは Null 配列参照エラーをスローしています$th->fetch()->[0]
。行が返されたかどうかを確認するにはどうすればよいですか?