Perl TK 在一个按钮上执行多个命令

Question

我想做的是有一个按钮可以关闭我的window(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' 键，因此被覆盖。

Perl TK 在一个按钮上执行多个命令

Perl TK multiple commands on a single button

perltk