（Perl）fetchrowhashref函数问题my($hashref,$key);while($hashref=$sth->fetchrowhashref()){foreach$key("bugid","bugcontent","bugstatus"){print"$hashref->{$key}"."\n";}print"\n";}上面这段程序是把数据库中

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; }