Thread::SemaphorePerl Programmers Reference Thread::Semaphore(3p)
Thread::Semaphore - thread-safe semaphores
use Thread::Semaphore; my $s = new Thread::Semaphore; $s->down; # Also known as the semaphore P operation. # The guarded section is here $s->up; # Also known as the semaphore V operation. # The default semaphore value is 1. my $s = new Thread::Semaphore($initial_value); $s->down($down_value); $s->up($up_value);
Semaphores provide a mechanism to regulate access to resources. Semaphores, unlike locks, aren't tied to particu- lar scalars, and so may be used to control access to any- thing you care to use them for. Semaphores don't limit their values to zero or one, so they can be used to control access to some resource that there may be more than one of. (For example, filehandles.) Incre- ment and decrement amounts aren't fixed at one either, so threads can reserve or return multiple resources at once.
new new NUMBER "new" creates a new semaphore, and initializes its count to the passed number. If no number is passed, the semaphore's count is set to one. down down NUMBER The "down" method decreases the semaphore's count by the specified number, or by one if no number has been specified. If the semaphore's count would drop below zero, this method will block until such time that the semaphore's count is equal to or larger than the amount you're "down"ing the semaphore's count by. This is the semaphore "P operation" (the name derives from the Dutch word "pak", which means "cap- ture" -- the semaphore operations were named by the late Dijkstra, who was Dutch). up up NUMBER The "up" method increases the semaphore's count by perl v5.8.8 2005-02-05 1 Thread::SemaphorePerl Programmers Reference Thread::Semaphore(3p) the number specified, or by one if no number has been specified. This will unblock any thread blocked trying to "down" the semaphore if the "up" raises the semaphore count above the amount that the "down"s are trying to decrement it by. This is the semaphore "V operation" (the name derives from the Dutch word "vrij", which means "release"). perl v5.8.8 2005-02-05 2
Generated on 2013-04-27 00:20:00 by $MirOS: src/scripts/roff2htm,v 1.77 2013/01/01 20:49:09 tg Exp $
These manual pages and other documentation are copyrighted by their respective writers;
their source is available at our CVSweb,
AnonCVS, and other mirrors. The rest is Copyright © 2002‒2013 The MirOS Project, Germany.
This product includes material provided by Thorsten Glaser.
This manual page’s HTML representation is supposed to be valid XHTML/1.1; if not, please send a bug report – diffs preferred.