Perl DBIのselectrow_hashrefをどのようにして各行を新しい行に戻すことができますか？

Question

2行のコードを節約するためにfetchrow_hashrefの代わりにDBIのselectrow_hashrefを使用しようとしていますが、同じ行のデータを何度も何度も返しています。

my $select="SELECT * FROM table"; 
while (my ($user_ref) = $dbh->selectrow_hashref()) { 
    # $user_ref is the same each time! 
} 

私はfetchrow_hashrefを使用し、すべてが正常であり、各反復が、私は新しいデータを取得します。

my $select="SELECT * FROM table"; 
my $sth = $dbh->prepare($select) || die "prepare: $select: $DBI::errstr"; 
$sth->execute() || die "execute: $select: $DBI::errstr"; 
while (my ($user_ref) = $sth->fetchrow_hashref()) { 
    # works great, new data in $user_ref each iteration 
} 

私が間違っていることを教えてください。 selectrow_hashrefは、単一レコードを取得することのみを目的としていますか？そのようには見えませんin the doc。

Answer 1

selectrow_hashrefは、単一のレコードを取得することのみを目的としていますか？

はい。

このようには思われません。in the doc

まあ、そのドキュメントは言う：

それは声明からのデータの最初の行を返します。

私には明らかです。

代わりにselectall_hashrefをお探しですか？

更新：実は、私はあなたがselectall_arrayをしたいと思う：

my $select='SELECT * FROM table'; 
foreach my $user_ref ($dbh->selectall_array($select, { Slice => {} })) { 
    # $user_ref is a hash ref 
    say $user_ref->{some_column}; 
}