Question

（Perl）fetchrow_hash_ref函数问题

my ($hash_ref,$key);
while ($hash_ref = $sth->fetchrow_hashref()){
foreach $key ("bug_id","bug_content","bug_status"){
print "$hash_ref->{$key}"."\n";
}
print "\n";
}
上面这段程序是把数据库中的每条记录存入一个哈希表并且打印，我想把上面每次循环创建的哈希表存入到一个大的哈希表里面，请问应该怎么编写代码,谢谢了！

Answer 1

my ($hash_ref,$key);
my %data;
my $i=0;
while ($hash_ref = $sth->fetchrow_hashref()) {
$data{$i} = $hash_ref;
$i = $i +1;
}

Answer 2

$hash_ref
不就行么，你还是想做成散列的散列