Comment ouvrir une invite de commandes avec Perl?

Question

Ok, relisez-le. J'ai besoin d'ouvrir une invite Windows avec Perl. C'est parce que je veux que plusieurs invites exécutent des scripts Perl en parallèle, mais ne veulent pas les ouvrir tous à la main. Je veux donc un script que je peux appeler (host), dire le nombre d'invites de commande à ouvrir (clients), le chemin du script client à exécuter, et même mettre des entrées si les clients le demandent. Alors, deux choses importantes:

1. Comment ouvrir une invite avec un script perl

2. Comment passer à l'entrée qui invite

Merci! (PS Je sais que ce serait une énorme erreur d'exécuter un script hôte qui appelle le même script hôte, j'espère que mon patron ne fait pas cela: P)

Answer 1

Ceci est une question DOS/Windows, pas une question Perl.

Utilisez

system("start cmd.exe /k $cmd") 

Voir start /? et cmd /?.

Answer 2

Cela peut ne pas être une question Perl, pour ainsi dire, mais une question Windows. Je suppose que ce que vous voulez faire est d'appeler "Démarrer <options> <script>".

Par exemple:

my $cmd = "perl -w otherscript.pl"; 
my $result = system("start /LOW $cmd"); 

Cela devrait commencer la commande désirée dans une nouvelle fenêtre et revenir immédiatement. Tapez start /? pour les autres options qui peuvent changer la priorité du nouveau script, masquer la fenêtre suivante ou exécuter dans la fenêtre en cours.