GUI freeze - 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"可能会帮助你开始。