perl - GUI 冻结 - Perl Tk

Question

我使用 Perl/Tk 开发了一个小型应用程序。当应用程序中的一个按钮被按下时，应用程序将从 Web 获取数据。但问题是 GUI 会挂起，直到控制权返回。我知道这是由于延迟，所以主窗口没有响应。我使用了 update() 函数，但问题仍然存在。所以我四处搜索并知道我们可以使用线程来克服这个问题。但我不确定如何在 Perl/Tk 中使用线程。这是我的示例代码

use warnings;
use Tk;

my $mw = new MainWindow;

my $button = $mw -> Button(-text => "Fetch", 
        -command => \&FetchData)
    -> pack();
MainLoop;

sub FetchData
{
//Fetching data from Web
}

提前致谢。

Answer 1

从来没有尝试过，但是这个来自 2008 年“Perl Tk 和线程”的 PerlMonks 线程可能会帮助你开始。