DBIクエリの値を消費せずにチェックする

Question

私は自分のDBに新しい列を追加したテーブルを持っています。このテーブルをPerlでクエリすると、このフィールドが空であるかどうか一度だけチェックします。最初の行だけでこの列の値を確認する必要があります。通常、私は、whileループ内の各行をチェックすることができますが、私は一度だけそれを行う必要があるので、私はそれをやって時間を無駄にしたくない

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

を使用してクエリ結果を通過します。

どのようにして1つの行を取得し、それを消費することなく列の値をチェックすることができます。つまり、この条件を確認した後でも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(); 
}