| Win32::Semaphore - Utilisation d'objets sémaphore Win32 depuis Perl |
Win32::Semaphore - Utilisation d'objets sémaphore Win32 depuis Perl
require Win32::Semaphore;
$sem = Win32::Semaphore->new($initial,$maximum,$name);
$sem->wait;
Ce module permet l'accès aux objets sémaphore Win32. La méthode
wait et les fonctions wait_all et wait_any sont
héritées du module Win32::IPC.
$initial est
le compte initial et $maximum est le compte maximum du
sémaphore. Si $name est omis, crée un objet sémaphore anonyme.
Si $name désigne un objet sémaphore déjà existant, alors
$initial et $maximum sont ignorés et l'objet est ouvert.
open($name)$semaphore de $increment (1 par défaut).
Si $increment plus la valeur courante du compteur du sémaphore est
plus grand que son compte maximum, le compteur est inchangé.
Retourne vrai si l'incrémentation a eu lieu.
Le compteur du sémaphore (avant incrémentation) est stocké dans le
second argument (s'il y en a un). Il n'est pas nécessaire d'attendre
sur un sémaphore avant d'appeler release, mais vous avez intérêt à
savoir ce que vous faites.
wait([$timeout])$semaphore soit non nul, puis le décrémente
de 1. Voir Win32::IPC.
Win32::Semaphore accepte encore la syntaxe ActiveWare, mais son usage est désapprouvé.
$SemObject = Win32::Semaphore->new($Initial,$Max,$Name) à la place.
$SemObject = Win32::Semaphore->open($Name) à la place.
Release($Count,$LastVal)$SemObj->release($Count,$LastVal) à la place.
Christopher J. Madsen <chris_madsen@geocities.com>
Vaguement basé sur le module original d'ActiveWare Internet Corp., http://www.ActiveWare.com
Cette traduction française correspond à la version anglaise distribuée avec perl 5.6.1. Pour en savoir plus concernant ces traductions, consultez http://www.enstimac.fr/Perl/ .
Jean-Louis Morel <jl_morel@bribes.org>
| Win32::Semaphore - Utilisation d'objets sémaphore Win32 depuis Perl |