スレッドを使用してTkラベルを更新しています

Question

use Thread; 
use warnings; 
use Tk; 

my $x = 10; 
my $mw = new MainWindow; 
$mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50); 
my $thr = new Thread \&sub1; 

sub sub1 { 
    for ($i = 0 ; $i < 20 ; $i++) { 
     $x += 20; 
     sleep(2);    
     $mw->update; 
    } 
} 

MainLoop;       

私は、テキストがダウンして表示されるようにラベルを更新しようとしています。私はthread.Butテキストdownsを使用して実装したいと思います。

Answer 1

このコードを試してみてください。

use strict; 
use warnings; 

use Tk; 

my $x = 10; 

my $mw = new MainWindow; 
my $label = $mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50); 

$mw->repeat(2000, \&sub1); 

sub sub1 { 
    return if $x >= 400; 
    $x += 20; 
    $label->place(-x => $x, -y => 50); 
    $mw->update; 
} 

MainLoop; 

Answer 2

（Threadまたはthreadsを使用して）これが動作するとは思われません。
placeは、$xの内容を使用し、変数$xにはバインドしません。したがって、最初の配置後に変数を変更しても、ラベルには何も行われません。