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

从未尝试过这个，但是这个PerlMonks thread from 2008 "Perl Tk and Threads"可能会帮助你开始。