Discussion :

[bru_paris]

Bonjour,

je souhaiterais savoir comment dans un script perl tuer une application (mon_application.exe) lancer par la commande system?

Cette application tourne en boucle infini (ne rend pas la main), elle crée juste en fichier ("fin_exec")quand elle à terminer d'excuter son boulot. Je souhaite la tuer une fois que le fichier "fin_exe" apparait.

Je n'y arrive pas, quelqu'un aurait une solution !

system ( "mon_application.exe");

[Philou67430]

Une solution serait d'utiliser des thread (multi-tâche).

Sinon, il est peut-être possible d'ouvrir un pipe en lecture :
open my $MY_PROG, "-|", "./mon_application.exe"

[Philou67430]

Une solution serait d'utiliser des thread (multi-tâche).

Sinon, il est peut-être possible d'ouvrir un pipe en lecture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
open my $MY_PROG, "-|", "./mon_application.exe" or die "Can't start mon_application.exe ($!)\n";
sleep 10;
close $MY_PROG; # Tue le process au bout de 10 secondes

Je n'ai pas testé.