perltk - Perl TK 单个按钮上的多个命令

Question

我想做的是有一个按钮来关闭我的窗口（button_window），同时也调用一个函数（user_info）：

my $btn = $main -> Button (-text => 'Start',
-command => sub {$button_window -> destroy},
-command => \&user_info)
-> pack ();

它只执行最后一个命令提前谢谢

Answer 1

潜艇可以接听任意数量的呼叫到其他潜艇。

my $btn = $main->Button(
    -text    => 'Start',
    -command => sub {
        user_info();
        # do something else...
        $button_window->destroy;
    },
)->pack();

它只执行最后一个命令，因为散列参数只能有一个“-command”键，因此被覆盖。