サブルーチン実行前後に処理

質問

Tk を使って、あるサブルーチンの実行前にポップアップを出し、終了後にラベルの文字列を変えるという操作をしたいのですがうまくいきません。解決法をご教示願えましたらうれしいです。

use Tk;
use Net::FTP;

my $mw = MainWindow->new(-title => "Test");
my $comment = "Please wait ...";
my $label = $mw->Label(-textvariable => \$comment)->pack( );

MainLoop;

&download;

$comment = "Downloaded";

sub download{
open IDIN, "< id.txt" or die "Cannot open file";
my $ids = <IDIN>;
close IDIN;
my ($host,$idname,$pswd) = split(',',$ids);
my $ftp = Net::FTP->new($host, Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login($idname,$pswd)
or die "Cannot login ", $ftp->message;

$ftp->get("sample.txt")
or die "get failed ", $ftp->message;
}

回答No.2

yuuki0229 · ベストアンサー

MainLoop前にupdateが使えることが分かりましたので
修正したものを投稿しておきます。

use Tk;
use Net::FTP;

my $mw = MainWindow->new(-title => "Test");
my $comment = "Please wait ...";
my $label = $mw->Label(-textvariable => \$comment)->pack( );
$mw->update;
download();
$comment = "Downloaded";
MainLoop;

お礼

ありがとうございました！本やウェブなど自分なりに調べたのですがずっとできませんでした。ほんとうに助かりました。

回答No.1

yuuki0229

直接的な原因はMainLoopより後ろはウィンドウを閉じる時まで実行されてないことです。

my $label = $mw->Label(-textvariable => \$comment)->pack();
my $button = $mw->Button(-text => "download", -command => \&download)->pack();
あとはdownload内で$commentを編集するか
-command => sub{ download(); $comment="..."; }
といったことをすれば実現できます。

起動時にdownload処理をさせることもできます。
MainLoopの直前で
$mw->after(500 , \&download);
としておけば500ms後にサブルーチン呼び出しを行います。その時にはウィンドウやlabelは表示済みですのでlabelを上書きする様が確認できると思います。

どこかに&downloadをコールバックとしてバインドすることでもできそうな気がしますが、分かりませんでした。