这三行代码是每次运行执行四千次子程序的一部分.
我的目标是为散列中已有的值提供适当的格式.我有一个固定数量的散列键和每个散列键的格式字符串.

my %hash = ();
# ...
my $two_arrays = each_arrayref( $field_list,$field_list_format );
while ( my ( $field,$format ) = $two_arrays->() ) {
    $hash{ $field } = sprintf $format,$hash{ $field };
}

如果我坚持回归;在我的$two_arrays之前……,泄漏消失了.同样的回报;过去最后一行就是泄密.

由于子程序是守护程序的一部分,我注意到内存的持续增长(包括VIRT和RES).

我做错了什么？是否存在each_array()或each_arrayref()的任何内存泄漏,我不知道？

>列表:: MoreUtil(版本0.22)
> Linux 2.6.32-32-generic上的Perl 5.12.1(带线程的x86_64)(Ubuntu 10.04)