Re: 2 questions about Perl/Tk and Perl

Something like this might work:

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.");
}
[download]

Though you should probably look at Tk::Event and/or Tk::fileevent

On win you could use dir /b /a:d | find /v "Mk" | find /v "Templates" |find /v "Tools" | find /v "distfiles"

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"I'd rather go naked than blow up my ass"

Comment on Re: 2 questions about Perl/Tk and Perl Select or Download Code

Replies are listed 'Best First'.
Re^2: 2 questions about Perl/Tk and Perl by unknown-monk (Novice) on Apr 04, 2010 at 05:58 UTC
Hi, 1. It didn't work. I've tried it exactly as you have suggested and I've modified it in every single way. No success. 2. It's good to know, but currently i code on/for FreeBSD. Best regards, unknown-monk	[reply]