Comment puis-je spécifier le délai limite pour le Perl appel système?

Parfois mon système d'appel va dans une interminable de l'état. Pour, éviter que je veux être en mesure de sortir de l'appel après un laps de temps spécifié.

Est-il un moyen de spécifier un délai limite pour system?

system("command", "arg1", "arg2", "arg3");

Je veux le délai d'attente pour être mis en œuvre à partir de l'intérieur du code Perl pour la portabilité, et non pas à l'aide de certains OS des fonctions spécifiques comme ulimit.

C'est un double de plus de fois que je peux compter: stackoverflow.com/questions/2679582/... stackoverflow.com/questions/1962985/... stackoverflow.com/questions/2423288/ways-to-do-timeouts-in-perl stackoverflow.com/questions/3427401/... stackoverflow.com/questions/1165316/... sont que quelques-uns.

InformationsquelleAutor Lazer | 2010-10-19

perl system

28

Voir le alarme fonction. Exemple de pod:
```
eval {
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
    alarm $timeout;
    $nread = sysread SOCKET, $buffer, $size;
    alarm 0;
};
if ($@) {
    die unless $@ eq "alarm\n";   # propagate unexpected errors
    # timed out
}
else {
    # didn't
}
```
Il existe des modules sur CPAN qui encapsuler ces un peu plus gentiment, pour exemple: Temps::Out
```
use Time::Out qw(timeout) ;

timeout $nb_secs => sub {
  # your code goes were and will be interrupted if it runs
  # for more than $nb_secs seconds.
};

if ($@){
  # operation timed-out
}
```
- Cela semble fonctionner, mais le problème est que la commande exécutée via l'appel système de continuer à fonctionner, même si le parent Perl processus est déjà mort. Quelqu'un sait-il comment faire pour obtenir l'id de processus / handle du processus dirigé par l'appel système, de sorte que nous pouvons les tuer avant le script Perl se termine?
- Pour obtenir l'id de processus alors vous avez besoin de le réécrire à l'aide de fork au lieu de system. Jetez un oeil à des modules comme IPC::Cmd & IPC::Run pour rendre cela plus facile (dans ce contexte).
InformationsquelleAutor draegtun
14

Vous pouvez utiliser IPC::Run's de la méthode run au lieu de système. et de définir un délai d'attente.

InformationsquelleAutor ysth
3

Comment sur Système::Délai D'Attente ?

Ce module s'étend system pour permettre délai d'attente après l'secondes.
```
timeout("3", "sleep 9"); # timeout exit after 3 seconds
```
- Lien-seulement les réponses ne sont pas utiles lorsque le contenu se déplace ou modifie. Inclure les parties pertinentes du lien dans votre réponse, adaptée pour correspondre à la question.
- Un lien vers une solution possible est toujours la bienvenue, mais s'il vous plaît ajouter un cadre autour du lien ainsi les autres utilisateurs auront une idée de ce qu'il est et pourquoi il est là. Toujours citer la partie la plus pertinente d'un lien important, dans le cas où l'objectif du site est inaccessible ou va définitivement hors ligne. Prendre en compte que le fait d'être à peine plus d'un lien vers un site externe est une raison possible à le Pourquoi et le comment sont quelques réponses supprimé?.
- Édité.
InformationsquelleAutor John Chain

J'ai simplement utilisé le timeout commande Perl + Linux avant, quelque chose que vous pouvez tester comme ceci:

for(0..4){
  my $command="sleep $_";  #your command
  print "$command, ";
  system("timeout 1.1s $command");  # kill after 1.1 seconds
  if   ($? == -1  ){ printf "failed to execute: $!" }
  elsif($?&127    ){ printf "died, signal %d, %scoredump", $?&127, $?&128?'':'no '}
  elsif($?>>8==124){ printf "timed out" }
  else             { printf "child finished, exit value %d", $? >> 8 }
  print "\n";
}

Sortie après 4.317 secondes:

sleep 0, child finished, exit value 0
sleep 1, child finished, exit value 0
sleep 2, timed out
sleep 3, timed out
sleep 4, timed out

La timeout commande est partie de tous les grands "normal" distributions Linux un.f.un.j'.k, une partie de coreutils.

InformationsquelleAutor Kjetil S.

Vous devez vous connecter pour publier un commentaire.