पर्ल में, मैं सिस्टम कॉल के समूह को समाप्त करने के लिए कैसे रोक सकता हूं?

Question

मैं प्रणाली का एक समूह कर रहा हूँ कॉल कि मैं समानांतर में चलाना चाहते हैं:

system(" sleep 5 && echo step 1 done &"); 
system(" sleep 3 && echo step 2 done &"); 
system(" sleep 7 && echo step 3 done &"); 

// block here 

मैं प्रोग्राम प्रवाह कैसे ब्लॉक कर सकते हैं जब तक सभी सिस्टम कॉल समाप्त हो रहे हैं?

Answer 1

यह करने के लिए सबसे आसान तरीका है पर में शामिल होने के बारे में fork प्रत्येक सिस्टम कॉल के लिए एक नए बच्चे की प्रक्रिया के लिए शायद है, और फिर उन्हें का इंतजार खत्म करने के लिए। यहां एक सरलीकृत उदाहरण दिया गया है:

my @commands = ("sleep 5 && echo step 1 done", 
       "sleep 3 && echo step 2 done", 
       "sleep 7 && echo step 3 done"); 

my @pids; 
foreach my $cmd(@commands) { 
    my $pid = fork; 
    if ($pid) { 
     # parent process 
     push @pids, $pid; 
     next; 
    } 

    # now we're in the child 
    system($cmd); 
    exit;   # terminate the child 
} 

wait for @pids; # wait for each child to terminate 

print "all done.\n"; 

Answer 2

प्रत्येक नौकरी करने के लिए एक बच्चे की प्रक्रिया को फोर्क करें, और माता-पिता में, बाहर निकलने से पहले उन प्रक्रियाओं को समाप्त करने की प्रतीक्षा करें।

perldoc perlfork, perldoc -f fork और perldoc -f waitpid देखें।

(इसके लिए सटीक कोड पाठक के लिए एक अभ्यास के रूप में छोड़ा गया है - इसमें शामिल विवरणों को समझने के लिए हर किसी को इसे कम से कम एक बार स्क्रैच से लिखना होगा। इस साइट पर भी कई उदाहरण हैं।)

Answer 3

क्या एक अलग धागे से सिस्टम कॉल में से हर एक चल रहा है और धागे