我刚刚使用List :: MoreUtils中的each_array()和each_arrayref()发现了令人讨厌的内存泄漏。
这三行代码是每次运行执行四千次子程序的一部分。 我的目标是为散列中已有的值提供适当的格式。我有一个固定数量的散列键和每个散列键的格式字符串。
my %hash = ();
# ...
my $two_arrays = each_arrayref( $field_list, $field_list_format );
while ( my ( $field, $format ) = $two_arrays->() ) {
$hash{ $field } = sprintf $format, $hash{ $field };
}
如果我在return;
之前粘贴my $two_arrays ...
,则泄漏消失。与最后一行相同的return;
会造成泄密。
由于子程序是守护程序的一部分,我注意到内存的持续增长(包括VIRT和RES)。
我做错了什么?是否有任何内存泄漏的each_array()或each_arrayref(),我不知道?
答案 0 :(得分:7)
List :: MoreUtil(VERSION 0。02)发布日期为2006年7月,5年前。目前的版本是0.32,这个版本仍然存在泄漏?在最近几个版本中修复了几个内存泄漏:http://cpansearch.perl.org/src/ADAMK/List-MoreUtils-0.32/Changes