Section courante

A propos

Section administrative du site

ALARM

Alarme
Perl
POSIX

Syntaxe

sub POSIX::alarm($seconde);

Paramètres

Nom Description
$seconde Ce paramètre permet d'indiquer le nombre de secondes.

Description

Cette fonction permet de fixer le nombre de seconde de «SIGALARM».

Exemple

Voici un exemple montrant l'exécution d'une boucle sans fin pendant 3 secondes :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use POSIX;
  5.  
  6. print "Démarrage...\n";
  7. eval {
  8.    local $SIG{ALRM} = sub { die "alarm\n" };
  9.    POSIX::alarm(3);
  10.    while(1) {
  11.       print "Attend...\n"
  12.    }
  13.    POSIX::alarm(0);
  14. };
  15. if($@) {
  16.    die unless $@ eq "alarm\n";
  17. }
  18. print "Fin!\n";

on obtiendra le résultat semblable au suivant :

Démarrage...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
... continue un certain temps dépendamment de la capacité de la machine...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Attend...
Fin!

Voir également

Langage de programmation - Perl - Référence de procédures et fonctions - alarm
Langage de programmation - Fonction C pour Linux - alarm


Dernière mise à jour : Dimanche, le 18 octobre 2015