I wanted to create watch folder for download and upload files from/to server for every 3 seconds for 21 accounts

If i use the below code using TK, the window will automaticaly get quit, when i click the start button of 4th button. Inside while loop i am going to call all the relevent scripts(copy/paste). The same i wanted do for 21 accounts.

use threads;
use threads::shared;


my $dummy1downloadgo : shared = 0;
my $dummy1downloadvalue : shared = "IDLE";
my $dummy1uploadgo : shared = 0;
my $dummy1uploadvalue : shared = "IDLE";
### dummy2 SHARED####
my $dummy2downloadgo : shared = 0;
my $dummy2downloadvalue : shared = "IDLE";
my $dummy2uploadgo : shared = 0;
my $dummy2uploadvalue : shared = "IDLE";


my $dummy3downloadgo : shared = 0;
my $dummy3downloadvalue : shared = "IDLE";
my $dummy3uploadgo : shared = 0;
my $dummy3uploadvalue : shared = "IDLE";


##### dummy1 THREAD #####
my $dummy1downloadThread = threads->new( \&dummy1downloadthread );
my $dummy1uploadThread = threads->new( \&dummy1uploadthread );
##### dummy2 THREAD #####
my $dummy2downloadThread = threads->new( \&dummy2downloadthread );
my $dummy2uploadThread = threads->new( \&dummy2uploadthread );
##### dummy3 THREAD #####
my $dummy3downloadThread = threads->new( \&dummy3downloadthread );
my $dummy3uploadThread = threads->new( \&dummy3uploadthread );


##### dummy1 DOWNLOAD PROCESS #####
sub dummy1downloadthread {
while (1) {
if ($dummy1downloadgo == 0)
{
sleep 2;
$dummy1downloadvalue = "IDLE" ;
}
else {
#$dummy1downloadvalue++;
$dummy1downloadvalue = "dummy1 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy1downloadvalue = "dummy1 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy1 UPLOAD PROCESS #####
sub dummy1uploadthread {
while (1) {
if ($dummy1uploadgo == 0)
{
sleep 2;
$dummy1uploadvalue = "IDLE" ;
}
else {
#$dummy1uploadvalue++;
$dummy1uploadvalue = "dummy1 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy1uploadvalue = "dummy1 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy2 DOWNLOAD PROCESS #####
sub dummy2downloadthread {
while (1) {
if ($dummy2downloadgo == 0)
{
sleep 2;
$dummy2downloadvalue = "IDLE" ;
}
else {
#$dummy2downloadvalue++;
$dummy2downloadvalue = "dummy2 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy2downloadvalue = "dummy2 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy2 DOWNLOAD PROCESS #####
sub dummy2uploadthread {
while (1) {
if ($dummy2uploadgo == 0)
{
sleep 2;
$dummy2uploadvalue = "IDLE" ;
}
else {
#$dummy2uploadvalue++;
$dummy2uploadvalue = "dummy2 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy2uploadvalue = "dummy2 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy3 DOWNLOAD PROCESS #####
sub dummy3downloadthread {
while (1) {
if ($dummy3downloadgo == 0)
{
sleep 2;
$dummy3downloadvalue = "IDLE" ;
}
else {
#$dummy3downloadvalue++;
$dummy3downloadvalue = "dummy3 Download Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy3downloadvalue = "dummy3 Download Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}

##### dummy3 DOWNLOAD PROCESS #####
sub dummy3uploadthread {
while (1) {
if ($dummy3uploadgo == 0)
{
sleep 2;
$dummy3uploadvalue = "IDLE" ;
}
else {
#$dummy3uploadvalue++;
$dummy3uploadvalue = "dummy3 Upload Process 1" ;
#print "$myValue\n";
sleep 2;
$dummy3uploadvalue = "dummy3 Upload Process 2" ;
#print "$myValue\n";
sleep 2;
}
}
}


use Tk;
use Tk::dialog;
require Tk::NoteBook;
require Tk::LabFrame;
use Tk::LabFrame;

my $mw = MainWindow->new(-background => 'gray50');

#my $lframe = $mw->Frame( -background => 'gray50',-borderwidth=>10 )->
+pack(-side =>'left' ,-fill=>'y');
#my $rframe = $mw->Frame( -background => 'gray50',-borderwidth=>10 )->
+pack(-side =>'right',-fill =>'both' );
my $mbar = $mw -> Menu();
$mw -> configure(-menu => $mbar);

my %actives = (); #hash to hold reusable numbered widgets used for dow
+nloads
my @ready = (); #array to hold markers indicating activity is needed

my $file = $mbar -> cascade(-label=>"File", -underline=>0, -tearoff =>
+ 0);
my $help = $mbar -> cascade(-label =>"Help", -underline=>0, -tearoff =
+> 0);

$file -> command(-label =>"Exit", -underline => 1,
        -command => sub { exit } );

$help -> command(-label =>"About", -underline => 0,
        -command => [\&menuClicked, "About"]);
        
$mw->geometry("200x200");
$mw->title( 'dummy check' );

$nb = $mw->NoteBook(-borderwidth => 2 )->pack(-expand => 1, -fill => '
+both',);
$p1 = $nb->add('page1', -label => 'dummy1');

my $dummy1downloadframe = $p1->LabFrame(-label => "dummy1 Download",
                                   -labelside => "acrosstop")->pack();
$dummy1downloadframe->Button( -text => 'Start', -command => \&dummy1do
+wnloadstart )->pack( -side =>'left' );
$dummy1downloadframe->Button( -text => 'Stop', -command => \&dummy1dow
+nloadstop )->pack( -side =>'left' );
$dummy1downloadstatus = $dummy1downloadframe->Label(-text => $dummy1do
+wnloadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 
+'left' );


my $dummy1uploadframe = $p1->LabFrame(-label => "dummy1 upload",
                                   -labelside => "acrosstop")->pack();
$dummy1uploadframe->Button( -text => 'Start', -command => \&dummy1uplo
+adstart )->pack( -side =>'left' );
$dummy1uploadframe->Button( -text => 'Stop', -command => \&dummy1uploa
+dstop )->pack( -side =>'left' );
$dummy1uploadstatus = $dummy1uploadframe->Label(-text => $dummy1upload
+value, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left'
+ );


$p2 = $nb->add('page2', -label => 'dummy2');

my $dummy2downloadframe = $p2->LabFrame(-label => "dummy2 Download",
                                   -labelside => "acrosstop")->pack();
$dummy2downloadframe->Button( -text => 'Start', -command => \&dummy2do
+wnloadstart )->pack( -side =>'left' );
$dummy2downloadframe->Button( -text => 'Stop', -command => \&dummy2dow
+nloadstop )->pack( -side =>'left' );
$dummy2downloadstatus = $dummy2downloadframe->Label(-text => $dummy2do
+wnloadvalue, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 
+'left' );


my $dummy2uploadframe = $p2->LabFrame(-label => "dummy2 upload",
                                   -labelside => "acrosstop")->pack();
$dummy2uploadframe->Button( -text => 'Start', -command => \&dummy2uplo
+adstart )->pack( -side =>'left' );
$dummy2uploadframe->Button( -text => 'Stop', -command => \&dummy2uploa
+dstop )->pack( -side =>'left' );
$dummy2uploadstatus = $dummy2uploadframe->Label(-text => $dummy2upload
+value, -width => 40, -font=>"Verdana 10 bold")->pack( -side => 'left'
+ );





$mw->MainLoop;
###################################################################


sub dummy1downloadstart {
$dummy1downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy1downloadstatus->configure(-text => $dummy1downloadvalue);
$dummy1downloadstatus->update;
$mw->update;});
}

sub dummy1downloadstop {
$timer->cancel;
$dummy1downloadvalue = "IDLE";
$dummy1downloadstatus->configure(-text => $dummy1downloadvalue);
$dummy1downloadstatus->update;
$dummy1downloadgo = 0;
}


sub dummy1uploadstart {
$dummy1uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy1uploadstatus->configure(-text => $dummy1uploadvalue);
$dummy1uploadstatus->update;
$mw->update;});
}

sub dummy1uploadstop {
$timer->cancel;
$dummy1uploadvalue = "IDLE";
$dummy1uploadstatus->configure(-text => $dummy1uploadvalue);
$dummy1uploadstatus->update;
$dummy1uploadgo = 0;
}


##### dummy2 DOWNLOAD START #####
sub dummy2downloadstart {
$dummy2downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy2downloadstatus->configure(-text => $dummy2downloadvalue);
$dummy2downloadstatus->update;
$mw->update;});
}
##### dummy2 DOWNLOAD STOP #####
sub dummy2downloadstop {
$timer->cancel;
$dummy2downloadvalue = "IDLE";
$dummy2downloadstatus->configure(-text => $dummy2downloadvalue);
$dummy2downloadstatus->update;
$dummy2downloadgo = 0;
}

##### dummy2 UPLOAD START #####
sub dummy2uploadstart {
$dummy2uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy2uploadstatus->configure(-text => $dummy2uploadvalue);
$dummy2uploadstatus->update;
$mw->update;});
}
##### dummy2 UPLOAD STOP #####
sub dummy2uploadstop {
$timer->cancel;
$dummy2uploadvalue = "IDLE";
$dummy2uploadstatus->configure(-text => $dummy2uploadvalue);
$dummy2uploadstatus->update;
$dummy2uploadgo = 0;
}

##### dummy3 DOWNLOAD START #####
sub dummy3downloadstart {
$dummy3downloadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy3downloadstatus->configure(-text => $dummy3downloadvalue);
$dummy3downloadstatus->update;
$mw->update;});
}
##### dummy3 DOWNLOAD STOP #####
sub dummy3downloadstop {
$timer->cancel;
$dummy3downloadvalue = "IDLE";
$dummy3downloadstatus->configure(-text => $dummy3downloadvalue);
$dummy3downloadstatus->update;
$dummy3downloadgo = 0;
}

##### dummy3 UPLOAD START #####
sub dummy3uploadstart {
$dummy3uploadgo = 1;
$timer = $mw->repeat(1, sub {
$dummy3uploadstatus->configure(-text => $dummy3uploadvalue);
$dummy3uploadstatus->update;
$mw->update;});
}
##### dummy3 UPLOAD STOP #####
sub dummy3uploadstop {
$timer->cancel;
$dummy3uploadvalue = "IDLE";
$dummy3uploadstatus->configure(-text => $dummy3uploadvalue);
$dummy3uploadstatus->update;
$dummy3uploadgo = 0;
}

[download]

Kindly help me on this

Thanks in advance.

In reply to Perl TK threads using while by vinothjaguva

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.