Я разработал небольшое приложение с использованием Perl/Tk. Приложение будет получать данные из Интернета при нажатии одной из кнопок в приложении. Но проблема в том, что графический интерфейс зависает до тех пор, пока управление не будет возвращено. Я знаю, что это связано с задержкой, поэтому главное окно не отвечает. Я использовал функцию 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
}
Заранее спасибо.
