从DBI查询检查值而不消耗

Question

我的数据库中有一个表，我刚添加了一个新列，当我在Perl中查询此表时，我想只检查一次该字段是否为空。我需要在第一行检查此列的值。通常要经过我使用的查询结果

while (my $row = $sthmm->fetchrow_hashref()) {
    # do stuff
}

我可以检查while循环中的每一行，但由于我只需要做一次，所以我不想浪费时间去做。

如何在不消耗它的情况下检索一行并检查列的值，这意味着在检查此条件后我仍然可以在while循环中查看整个结果。

Answer 1

if ( my $row = $sth->fetchrow_hashref() )  {
   # Do stuff with first row

   do {
       # Do stuff to be done to each row
   } while $row = $sth->fetchrow_hashref();
}