perl: Exécution des processus Unix et contrôle de ceux-ci à l'aide de Perl

Question

J'ai 24 tâches (commandes Unix) dans la liste (fichier). ils doivent être exécutés par 5 à l'heure donnée. Quand une tâche se termine, le script doit en exécuter un suivant jusqu'à ce que les 24 tâches soient exécutées/en compétition. En attendant au premier plan j'ai une boucle while avec la commande "ps" pour surveiller l'activité. Des idées?

Answer 1

use Parallel::ForkManager qw(); 

my $pm = Parallel::ForkManager->new(5); 
for my $task (@tasks) { 
    $pm->start() and next; 
    my $exit_code = 0; 
    if (!eval { 
     ... 
     return 1; # No exception 
    }) { 
     $exit_code = $! || $? >> 8 || 255; 
     warn($@); 
    } 

    $pm->finish($exit_code); 
} 

$pm->wait_all_children(); 

Answer 2

Vous pouvez obtenir des informations à partir de votre suivi de processus avec Proc::ProcessTable

Voici un exemple:

#!/usr/bin/perl 

use Proc::ProcessTable; 

$ref = new Proc::ProcessTable; 

foreach $proc (@{$ref->table}) { 
    if(@ARGV) { 
    next unless grep {$_ == $proc->{pid}} @ARGV; 
    } 

    print "--------------------------------\n"; 
    foreach $field ($ref->fields){ 
    print $field, ": ", $proc->{$field}, "\n"; 
    } 
} 

Si vous êtes sous Windows, vous pouvez peut-être utiliser Win32 :: Process * modules . Mais je n'ai jamais utilisé!