Question

perl 循环内容时候，待确认，确认后再继续循环

foreach循环一个数组，每循环一次弹出toplevel窗口用于确认，确认OK点击继续执行循环

Answer 1

不能用toplevel

应该是这样：

#!/usr/bin/perl -w 
use Tk; 
my $mw = MainWindow->new();
$mw->withdraw;
foreach(1..10){
 $mw -> messageBox(-type=>"ok", -message=>"okokokok",-icon=>'question');
print"TTT$_\n" 
  
}
$mw -> destroy; 
MainLoop;
exit;