Comment puis-je exécuter une commande Windows externe et revenir instantanément en Perl?

Question

J'ai essayé d'utiliser system() avec fork(), j'ai essayé exec(), et je n'ai toujours pas obtenu ce dont j'avais besoin.

Je veux écrire un script Perl qui exécute, disons, un script Perl différent 5 fois de suite (en lui envoyant différentes valeurs de paramètres), mais qu'il soit exécuté simultanément. Je me rends compte que je pouvais transformer mon script dans un fichier .pm et la référence, mais je préfère garder le script enfant système indépendant du parent ...

• () fonctionne, mais exécute les commandes consécutivement (est logique par doc)
• exec() ne fonctionne pas - il exécute la première méthode (sens par doc)
• I a ajouté un script fork() à l'enfant perl puis essayé système à l'aide (
• cela n'a pas fonctionné non plus.
• commande backtick 'documents dit fonctionne comme système() ...

est pas là un moyen simple en Perl (im en utilisant Windows XP) pour exécuter un processus, et ne se soucient pas du retourner les valeurs ou antyhing et continuer juste sur la ligne suivante du script parent?

Answer 1

Sous Windows, vous pouvez attribuer le drapeau super-secret 1 au système, IIRC.

system 1, @cmd; 

Une recherche rapide Google pour cette question sur PerlMonks donne: http://www.perlmonks.org/?node_id=639814

espoir qui aide.

Answer 2

Vous devez bifurquer dans le parent, puis exec dans le nouveau processus. Il va comme ceci, en supposant A est le script original, et B est celui que vous voulez faire 5 fois:

   A1 
fork in A1 -> A1 A2 
exec B in A2 -> A1 B2 
fork in A1 -> A1 A3 B2 
exec B in A3 -> A1 B3 B2 

etc.

Answer 3

vous pouvez le faire comme celui-ci (fourchette dans le parent, exec chez l'enfant):

for my $cmd qw(command1 command2 command3) { 
     exec $cmd unless fork 
} 

la façon dont exec $cmd unless fork fonctionne est que fork retourne une valeur réelle dans le parent (l'identifiant de processus) et renvoie une valeur fausse chez l'enfant, ainsi exec $cmd ne se fasse automatiquement si fork renvoie false (un ka, chez l'enfant).

ou si vous voulez garder un œil sur le processus car il fonctionne en même temps:

my @procs; 

for my $cmd qw(cmd1 cmd2 cmd3) { 

    open my $handle, '-|', $cmd or die $!; 

    push @procs, $handle; 
} 

alors vous pouvez lire à partir d'un élément de @procs si vous avez besoin.

Ou jetez un oeil à l'un des nombreux modules cpan comme Forks::Super qui gèrent les détails de la gestion des fourches.

Answer 4

Un module est trop lourd pour ce travail. Vous voulez fork pour créer un nouveau processus, puis exec pour exécuter une commande dans le nouveau processus.Pour exécuter cinq commandes, vous avez besoin de quelque chose comme:

for (my $i=0; $i<5; $i++) { 
    if (fork() == 0) { 
     exec($command[$i]); # runs command, doesn't return 
    } 
} 

Answer 5

Une approche très légère.

Windows:

foreach my $cmd (@cmds) 
{ 
    `start $cmd`; 
} 

Unix:

foreach my $cmd (@cmds) 
{ 
    `$cmd &`; 
}