Perl中map调用Gtk2::Gdk::Pixbuf是否存在内存泄漏问题？

你当前使用map循环调用new_from_file_at_scale的写法不存在内存泄漏问题。
原因如下：

• Gtk2::Gdk::Pixbuf对象在Perl Gtk2绑定层有完整的引用计数管理，每次构造方法返回的对象引用都是合法受控的。
• 当Pixbuf列表传入set_default_icon_list后，GTK2内部会自动持有这些对象的引用；当程序退出、图标资源随窗口销毁时，引用计数会正确递减到0，对应内存会被自动回收，不存在无主内存泄漏的情况。
• 该写法唯一的缺陷是性能浪费：每次调用new_from_file_at_scale都会重复读取磁盘上的源PNG文件、重复执行图片解码操作，尺寸列表越长，不必要的IO和计算开销越大。

如果要规避重复IO的性能问题，可以只加载一次原始全尺寸图片到内存，再基于内存中的原始Pixbuf生成各个尺寸的缩放版本，逻辑更高效，同样不存在内存泄漏风险：

use utf8;
use strict;
use warnings;
use Gtk2;
use Glib qw/TRUE FALSE/;

sub cb_destroy
{
    Gtk2->main_quit;
}

sub Main {
    my $title = shift;
    Gtk2->init;
    my $window = Gtk2::Window->new('toplevel');
    # 仅读取一次源文件、解码一次原始128px图标
    my $origin_pixbuf = Gtk2::Gdk::Pixbuf->new_from_file('cat-purr-icon_128.png');
    $window->set_default_icon_list(
        map {
            # 直接从内存中的原始像素数据缩放生成目标尺寸，无重复文件IO
            $origin_pixbuf->scale_simple($_, $_, 'bilinear')
        } 128, 64, 48, 32, 16
    );
    # 原始Pixbuf后续无使用时可以直接释放引用，Perl会自动回收对应内存
    undef $origin_pixbuf;
    $window->signal_connect(destroy => \&cb_destroy);
    $window->show_all;
    Gtk2->main;
    return 0;
}

exit Main('Testing');

优化点说明：

• 全程仅执行1次磁盘文件读取、1次PNG解码，多尺寸缩放全部在内存中完成，图标加载速度明显更快
• 缩放时可按需选择插值算法：追求最高画质选hyper，平衡速度与画质选bilinear，追求极致加载速度选nearest
• 所有Pixbuf对象的引用计数依然由Perl绑定层和GTK内部共同维护，不会出现内存泄漏

内容的提问来源于stack exchange，提问作者Joel