как запустить поток Perl для цикла

Question

У меня есть многопоточный основной скрипт Perl. Я хочу, чтобы каждый поток имел три команды для запуска, как только весь поток будет завершен, я хочу, чтобы мой скрипт снова запускал тот же поток, в основном в цикле, может кто-нибудь дать мне знать, как это сделать?

это мой Perl фрагмент кода

my @finalOneClickarray= grep(/\S/, @oneclickConcurrentbackup); #----Removing the empty content from the array---# 

#---Making Concurrent OneClick backup commands using threads------# 
my @threads; 

#-----performing the CHO loops as given by user-------# 
foreach (@finalOneClickarray) { 
    push @threads, threads->new(\&concurrentBackupCommandsRead, $_); 
} 

foreach (@threads) { 
    $_->join(); 
} 

concurrentBackupCommandsRead является способ, в котором команды получают казнены.

Обновленный код Perl: -

use threads; 
use threads::shared; 
my @arr = (1,2,3,4); 
my $outnumber :shared =4; 


print "\n variable outside thread that is in main program $outnumber\n"; 
my @threads; 


for($i=0;$i<=3; $i++) 
{ 
    print "\ncalling subrountine vinay for $i times\n"; 

    vinay(); 

} 

sub vinay() 
{ 
    foreach (@arr) { 
     push @threads, threads->create(\&doSomething); 
    } 
    foreach (@threads) { 
     $_->join(); 
    } 
} 

sub doSomething() 
{ 

print "\n Before increment is $outnumber\n"; 
my $foo = $outnumber; 
$outnumber = $foo + 1; 

print "\n After increment is $outnumber\n"; 

} 

Answer 1

На вашем втором прогоне через петлю, вы пытаетесь присоединиться к уже присоединился нить (потому что вы только когда-либо добавить к @threads). Это вызывает ошибку: «Thread уже присоединился».

Очистить @threads или локализовать его до vinay(), напр.

sub vinay() 
{ 
    my @threads; 
    foreach (@arr) { 
     push @threads, threads->create(\&doSomething); 
    } 
    foreach (@threads) { 
     $_->join(); 
    } 
}