perl中Entry绑定事件不生效

初次使用perl时遇到了一个问题，Entry绑定的回车事件不生效，原因是调用的方式有两种方式，一种是 ：\&方法名，一种是： sub{}，因函数中需要传参，使用sub{}解决，特记录一下。

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use strict;
use warnings;
use Tk;
use utf8;

# 创建主窗口
my $mw = MainWindow->new;
$mw->title("Perl Entry事件绑定");

# 创建一个输入框
my $entry = $mw->Entry()->pack();

# 创建一个标签来显示输入内容
my $label = $mw->Label(-text => "请按回车键输入内容:")->pack();

# 定义回车事件处理函数
sub on_enter {
   
    my $input = $entry->get();  # 获取输入框的内容
    $label->configure(-text => "您输入的内容是: $input");  # 更新标签内容
    $entry->delete(0, 'end');   # 清空输入框
}


sub on_entersub {
    my $hi = shift;
    my $input = $entry->get();  # 获取输入框的内容
    $label->configure(-text => "您输入的内容是: $input");  # 更新标签内容
    $entry->delete(0, 'end');   # 清空输入框
}
# 为输入框绑定回车事件
#$entry->bind('<Return>', \&on_enter("hi"));
$entry->bind('<Return>', sub{on_entersub("hi")});
# 启动主循环
MainLoop;

总结： \&方法只适合简单的方法调用；sub{}适合复杂一点的方法。