創建新的perl/tk窗口，將在1秒後自動關閉

Question

我想向腳本添加一個新窗口小部件，該窗口小部件將打開一個帶有文本的新窗口，並在1秒後自動關閉。

我該怎麼辦？

Answer 1

我想你想要的是Tk::after。

#!/usr/bin/perl 

use strict; 
use warnings; 

use Tk; 

my $mw = MainWindow->new; 
my $spawn = $mw->Button(
    -text => 'spawn', 
    -command => sub { 
     my $subwindow = MainWindow->new; 
     my $label  = $subwindow->Label(-text => "spawned"); 
     $label->pack; 
     $subwindow->after(1_000, sub { $subwindow->destroy; }); 
    } 
); 
$spawn->pack; 
my $exit = $mw->Button(
    -text => 'exit', 
    -command => sub { print "exiting...\n"; exit } 
); 
$exit->pack; 

MainLoop;