Perl Tk控件-command回调内通用获取自身引用的实现方法

共有两种无依赖的通用实现方式，都不需要硬编码绑定外部变量名：

方案1：Tk 回调参数绑定（最推荐） #

Tk 原生支持数组形式的回调配置：[\&回调函数, 前置参数1, 前置参数2...]，你可以把控件自身作为前置参数绑定给回调，触发时该参数会优先于Tk默认传入的（值、操作类型）参数进入回调，直接就能拿到等价于this的控件实例引用。
示例代码：

# 单独定义回调函数
sub spinbox_cmd_callback {
    my ($self, $current_val, $op_type) = @_;
    # 这里$self就是控件自身的引用，可以直接调用控件方法
    # 示例：向上调整时把字体改成红色
    $self->configure(-foreground => 'red') if $op_type eq 'up';
}

my $widget = $mw->Spinbox(
    -from => -1000,
    -to => 1000,
    -increment => 1,
    -width => 4,
    -textvariable => $textvariable,
    -command => [\&spinbox_cmd_callback, $widget] # 绑定控件自身作为第一个参数
);

如果是小型逻辑不需要单独抽函数，也可以直接用匿名子：

my $widget = $mw->Spinbox(
    # 其余配置同上
    -command => [sub {
        my ($self, $current_val, $op_type) = @_;
        # 逻辑直接写在这里
    }, $widget]
);

方案2：闭包捕获控件引用 #

如果偏好写匿名回调，也可以利用Perl闭包的特性捕获刚创建的控件引用，后续外部修改$widget变量的值也不会影响回调内部的引用，适合轻量逻辑场景：

my $widget;
$widget = $mw->Spinbox(
    -from => -1000,
    -to => 1000,
    -increment => 1,
    -width => 4,
    -textvariable => $textvariable,
    -command => sub {
        my ($current_val, $op_type) = @_;
        # 闭包已经捕获了$widget的引用，可直接调用方法
        $widget->configure(-foreground => 'blue') if $op_type eq 'down';
    }
);

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