Timeout sur system()

Version imprimable

Bonjour
J'ai besoin de lancer une commande avec la fonction system() pour vérifier son code de retour.
J'ai aussi besoin de mettre un timeout sur cette appel pour tuer le processus

J'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 eval { local $SIG{ALRM} = sub { die "Alarm" }; alarm($getconfs_timeout); system("toto") == 0 || &failexec("Unable to execute\n",$?); alarm(0); }; if ($@ and $@ =~ /Alarm/) { &timeoutexec("Timeout sent\n"); } else {
mais cela créé des zombies

existe t'il un moyen simple (sans install de librairies) pour faire celà ?
j'imagine que le fork est obligatoire mais je les maitrise pas très bien

j'ai essayé çà mais celà n'est pas concluant (je ne sais pas comment tuer un des fils quand l'autre est fini)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 #!/usr/bin/perl $timeout=30; &NewPid(); sub NewPid(){ defined($pid1 = fork) or die "Pas de fork1 possible : $!"; defined($pid2 = fork) or die "Pas de fork2 possible : $!"; unless($pid1){ print "Lancement sh\n"; exec("/var/www/html/outilsecurite/script/cdegetconfs.sh"); exit 0; } unless($pid2){ $time=$timeout; while($time>0) { system("cls"); print "Il vous reste: $time secondes\n"; $time=&Decompte($time); } exit 0; } waitpid($pid2, 0); waitpid($pid1, 0); } sub Decompte(){ $decompte=$_[0]; $decompte=$decompte-1; sleep(1); return $decompte; }

après pas mal de recherche, j'ai adapté le code suivant qui semble répondre à mes besoins. Qu'en pensez vous ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
 
use strict;
 
my $time = 5;
my $pid;
 
local $SIG {ALRM} = sub {die "Timeout";kill 15, $pid;}; # Just SIGTERM.
 
eval {
  $pid = fork;
 
  die "Fork failed: $!" unless defined $pid;
 
  unless ($pid) {
    system('/home/toto.sh')==0 || &failexec($$); ;
  }
  alarm $time;
 
  waitpid $pid => 0;
};
if ($@ && $@ !~ /^Timeout/){
  print "Time out\n";
  die $@ ; 
}
 
1;
 
sub failexec {
	my ($pid) = @_;
	kill 15, $pid or die "kill: $!";die "Plantage";
}

EDIT : zut, celà ne tue pas le processus fils de system()

09/07/2007, 10h56
Jedai

Dans ton fork fait un exec(), pas un system().

--
Jedaï
09/07/2007, 11h16
Invité

mon problème c'est que j'ai besoin de connaitre la valeur retournée par mon script toto.sh ce que ne permet pas exec() :cry:

la je réussi à tuer le processus père mais le fils créé par system tourne toujours :evilred:
09/07/2007, 11h50
Jedai

Si tu réussis ton waitpid(), le status retourné par la commande dans le exec() sera dans $? (ou presque, consulte perlvar pour plus de détail sur $?).

--
Jedaï

Merci beaucoup (je débute en perl)

Mon code marche maintenant :yaisse2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
#!/usr/bin/perl
 
use strict;
 
my $time = 1;
my $pid;
 
local $SIG {ALRM} = sub {
                          kill 15, $pid ;
                          die "Timeout\n";
                          };
eval {
  $pid = fork;
 
  die "Fork failed: $!" unless defined $pid;
 
  unless ($pid) {
    exec('/home/toto.sh');
    die "Commande failed\n";
  }
  alarm $time;
  waitpid $pid => 0;
};
if ($@ and $@ =~ "Timeout\n"){
  die $@;
}elsif(($? >> 8)){
  die "Plantage ".($? >> 8)."\n";
}else{
  print "Tout est OK\n";
}
1;