Çocuk süreçlerinin sistem() ile arka planda başlatılmasını Perl bekle nasıl yapabilirim?

Question

Ben basitleştirmek için birden çok parametre için bir shell script çalıştırır bazı Perl kodu, var, ben sadece şuna benzer bir kod olduğunu varsayıyoruz:

for $p (@a){ 
    system("/path/to/file.sh $p&"); 
} 

ben sonra biraz daha fazla şeyler yapmak istiyorum Bu, ancak devam etmeden önce tüm çocuk süreçlerinin bitmesini beklemenin bir yolunu bulamıyorum.

Kullanılacak kodu fork() dönüştürmek zor olacaktır. Daha kolay bir yolu yok mu?

Answer 1

/exec/wait çok kötü değil:

my @a = (1, 2, 3); 
for my $p (@a) { 
    my $pid = fork(); 
    if ($pid == -1) { 
     die; 
    } elsif ($pid == 0) { 
     exec '/bin/sleep', $p or die; 
    } 
} 
while (wait() != -1) {} 
print "Done\n"; 

Answer 2

Çatalla() dönüştürmek zor olabilir, ancak bu doğru bir araçtır. sistem() bir engelleme çağrısıdır; Bir kabuk yürütmek ve komut dosyalarınızı arka planda çalıştırmak için bunu söyleyerek engelleme dışındaki davranışları alıyorsunuz. Bu, Perl'in çocukların PID'lerinin ne olabileceği hakkında hiçbir fikri olmadığı anlamına gelir, bu da komut dosyanızın ne beklemesi gerektiğini bilmez.

PID'leri Perl komut dosyasına kadar iletmeyi deneyebilirsiniz, ancak bu hızlı bir şekilde elden çıkar. Çatal() kullanın.

Answer 3

Bir şeyi değiştirmeniz gerekecek, çatal kullanmak için kodu değiştirmeniz muhtemelen daha basittir, ancak çatal kullanmaya karşı ölü olarak ayarlanmışsanız, dosya bittiğinde dosyaya dokunan sarıcı kabuk komut dosyası kullanabilirsiniz. Perl kodunuzun dosyaların varlığını kontrol etmesini sağlayın.

#!/bin/bash 

$* 

touch /tmp/$2.$PPID 

Kişisel Perl kodu gibi görünecektir::

for my $p (@a){ 
    system("/path/to/wrapper.sh /path/to/file.sh $p &"); 
} 
while (@a) { 
    delete $a[0] if -f "/tmp/$a[0].$$"; 
} 

Ama çatallaşma kodu daha güvenli ve daha net olduğunu düşünüyorum: Burada

sarıcı çatal kullanma

my @pids; 
for my $p (@a) { 
    die "could not fork" unless defined(my $pid = fork);\ 
    unless ($pid) { #child execs 
     exec "/path/to/file.sh", $p; 
     die "exec of file.sh failed"; 
    } 
    push @pids, $pid; #parent stores children's pids 
} 

#wait for all children to finish 
for my $pid (@pids) { 
    waitpid $pid, 0; 
}