Perl

Gestion d'un processus avec timeout

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Gestion d'un processus avec timeout

Predicator

Bonjour,

J'ai un problème en Perl que je n'arrive pas à résoudre.

J'ai besoin de lancer une commande (en fait mon script perl gère un lot et lance la commande en séquence sur chaque élément du lot), et de l'arrêter si elle prend trop de temps.

J'ai creusé plusieurs méthodes, donc la plus "propre" semble être l'utilisation de alarm et die, mais ça ne marche pas dans mon cas.

Voici le code de "test" de la méthode, modifiée pour mon usage, à partir du code qu'on peut trouver un peu partout sur le net :

Code :

#!/usr/bin/perl -w
$gcom = "<ma commande>";
$time = 5;
sub execCom {
$com = $_[0];
eval {
local $SIG{ALRM} = sub { die "$com est parti en boucle\n" };
alarm $time;
system($com);
alarm 0;
};
if ($@) {
die "#3xyz# : $@\n";
# délai dépassé : time out
} else {
# délai non dépassé
print "#8xyz# : Délai non dépassé\n";
}
}
system ("touch 1.t" );
&execCom("$gcom" );
system ("touch 2.t" );
&execCom("$gcom" );
system ("touch 3.t" );
&execCom("$gcom" );
system ("touch 4.t" );
&execCom("$gcom" );
system ("touch fin.t" );
system ("ll -rt *.t" );

Au final, seule la première commande est exécutée (les lignes 28 et 29). Elle dépasse le timeout, mais n'est pas arrêtée... Les lignes suivantes (30 et +) ne sont jamais exécutées.

Quelqu'un pourrait m'expliquer ?

J'ai aussi regardé du côté de "ulimit" en bash/sh et "limit cputime" en csh/tcsh, mais je me trouve face à un comportement étrange, et surtout, des impossibilité de changer les valeurs... De plus comme c'est dépendant du shell, j'ai moins confiance.

Merci de m'aider

Message édité par Predicator le 30-05-2008 à 11:45:10

Publicité

Predicator

Bon, à défaut de réponse et vu que c'est assez pressé, j'ai utilisé une autre méthode. Pas propre il est vrai, mais fonctionnelle (je n'ai pas trouvé de faille, même je ne doute pas qu'il y en ait une).

Donc l'idée est qu'un script A gère le lot, et appelle un script perl B, via la commande system.

Voici le contenu du script B (avec commentaire de debuggage non retirés) :

Code :

#!/usr/bin/perl -w
$gcom = $ARGV[0];
$time = $ARGV[1];
$pid = fork();
if (not defined $pid) {
print "Plus de ressources...\n";
exit(1);
}
if ($pid == 0) {
# fils, on lance le programme
exec($gcom);
} else {
#print "$pid\n";
$cpt = 0;
while($cpt < $time) {
# On teste l'existence du pid
open COM, ("ps -p $pid|grep $pid|" );
@lines = <COM>;
close COM;
print "@lines\n";
if ($lines[0] =~ m/$pid/) {
print "$pid is running\n";
if ($lines[0] =~ m/defunct/) {
print "Attente du fils que le père meurt\n";
exit(0);
} else {
print "$cpt : Attente d'une seconde\n";
sleep(1);
}
} else {
exit(0);
}
$cpt++;
}
open COM, ("ps -p $pid|grep $pid|" );
@lines = <COM>;
close COM;
if ($lines[0] =~ m/$pid/) {
print "Sortie de boucle, $pid is running\n";
print "$pid must be killed... Cya in Hell my friend !\n";
kill 9, $pid;
}
}

Je vais utiliser ce script dès cet après-midi, mais je reste ouvert à toute évolution, donc ne vous privez pas

Taz

bisounours-codeur

L'autre jour j'ai eu le même problème, je sais pas pourquoi, je m'en sortais pas avec l'alarm, ça bloquait souvent pour une raison que je n'ai pas réussi à déterminer. donc au final j'ai fait une méthode ou je lance un autre processus pour tuer l'autre.

Code :

sub _find_started_process
{
my $spawner = shift;
my $child = `ps -elf | awk '\$5 == $spawner { print \$4 }`;
chomp $child;
print STDERR "Real subprocess is $child\n" if ($child);
return $child;
}
sub _start_killer
{
my ($pid, $gracetime) = @_;
my $killer = fork;
return $killer if $killer;
POSIX::setsid;
chdir '/';
#fork && exit;
print STDERR "Killer $$ started for PID $pid with gracetime $gracetime\n";
sleep $gracetime;
if (kill(0, $pid)) {
do {
print STDERR "Killing $pid\n";
} while (kill(9, $pid) != 1);
}
exit;
}
sub _run
{
my $cmd = shift;
my $data = undef;
my $pid = undef;
my $killerpid = undef;
eval {
my $timeout = 20;
($pid = open(INPUT, '-|', $cmd)) or die("cannot start : $!" );
print STDERR "Running $cmd with PID $pid\n";
my $started = _find_started_process($pid);
if ($started) {
$killerpid = _start_killer($started, $timeout);
}
$data = do { local($/); <INPUT> };
close(INPUT);
};
my $error = @_;
if ($killerpid && kill(0, $killerpid)) {
do {
print STDERR "Killing killer $killerpid\n";
} while (kill(9, $killerpid) != 1);
waitpid($killerpid, 0);
}
# _start_killer($killerpid, 0);
if ($error) {
die "Couldn't not run '$cmd' : $error";
}
return $data;
}

FORUM HardWare.fr

Programmation

Perl

Gestion d'un processus avec timeout

Sujets relatifs
[DB2] gestion de transaction	gestion de dépots en sql
Gestion des événements	Aide pour faire MCD - Gestion de stocks
Gestion d'un championnat avec les graphes.	Tomcat: régler le timeout
[Résolu] gestion mémoire en java	Gestion des groupes Active Directory (débutant)
[SPIP] gestion accès restreint par groupe	Processus PHP?
Plus de sujets relatifs à : Gestion d'un processus avec timeout

Page générée en 0.059 secondes