sub scan { $listbox->insert('end', "Scanning..."); open CMD, qq[perl -lne "foreach (glob '$_/*'){print if !/Makefile[.inc]*$/}" + zz.lis] or die $!; while( <CMD> ) { chomp; $listbox->insert( 'end', $_ ); DoOneEvent(); } $listbox->insert('end', "Done."); }
Though you should probably look at Tk::Event and/or Tk::fileevent
In reply to Re: 2 questions about Perl/Tk and Perl
by BrowserUk
in thread 2 questions about Perl/Tk and Perl
by unknown-monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |