in reply to Re: Perl TK threads using while
in thread Perl TK threads using while

You do not need, say, “21 threads” to do this ... or even two.

He is better off putting the socket codes into threads. If he just uses Tk's fileevent, (which is basically just select), he would be time slicing 21 sockets with a single fileevent. If one socket has a big upload, it will block all the other sockets until it is done. Having separate threads is very important here.


I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Replies are listed 'Best First'.
Re^3: Perl TK threads using while
by vinothjaguva (Novice) on Feb 07, 2012 at 09:22 UTC

    Hi zentara

    Thanks for your response. The examples which you have mentioned starts automatically, but i want to start the event after pressing the button same for stop.

    If i assigned to the button it gets hangged.

    And every 3 seconds i want to display the status of process like Download in Process, Watching the Folder, No file found/ if found, Process started for file no.1/ Copying the file to server, sending e-mail. So that user will know there is some processing happning in tool.

    Any help will be much appreciated

    Thanks in Advance.

      And every 3 seconds i want to display the status of process like Download in Process, Watching the Folder, No file found/ if found, Process started for file no.1/ Copying the file to server, sending e-mail.

      Thats a pretty big request considering the code you posted. It would take me all day to properly write and test such a script. This is not a script writing service.

      My advice, is to break your program down into smaller parts, and get each working separately, then work on combining them. If you want to do something every 3 seconds, use a timer.

      use Tk; my $timer = $mw->repeat( 3000, \&my_sub);

      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh