IPC::Semaphore - SysV Semaphore IPC object class
use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR IPC_CREAT); use IPC::Semaphore; $sem = IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRUSR | S_IWUSR | IPC_CREAT); $sem->setall( (0) x 10); @sem = $sem->getall; $ncnt = $sem->getncnt; $zcnt = $sem->getzcnt; $ds = $sem->stat; $sem->remove;
Perl Programmers Reference Guide IPC::Semaphore(3) NAME IPC::Semaphore - SysV Semaphore IPC object class SYNOPSIS use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR IPC_CREAT); use IPC::Semaphore; $sem = IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRUSR | S_IWUSR | IPC_CREAT); $sem->setall( (0) x 10); @sem = $sem->getall; $ncnt = $sem->getncnt; $zcnt = $sem->getzcnt; $ds = $sem->stat; $sem->remove; DESCRIPTION A class providing an object based interface to SysV IPC semaphores. METHODS new ( KEY , NSEMS , FLAGS ) Create a new semaphore set associated with "KEY". "NSEMS" is the number of semaphores in the set. A new set is created if o "KEY" is equal to "IPC_PRIVATE" o "KEY" does not already have a semaphore identifier associated with it, and "FLAGS & IPC_CREAT" is true. On creation of a new semaphore set "FLAGS" is used to set the permissions. Be careful not to set any flags that the Sys V IPC implementation does not allow: in some systems setting execute bits makes the operations fail. getall Returns the values of the semaphore set as an array. getncnt ( SEM ) Returns the number of processes waiting for the semaphore "SEM" to become greater than its current value getpid ( SEM ) Returns the process id of the last process that performed an operation on the semaphore "SEM". getval ( SEM ) Returns the current value of the semaphore "SEM". getzcnt ( SEM ) Returns the number of processes waiting for the semaphore "SEM" to become zero. id Returns the system identifier for the semaphore set. op ( OPLIST ) "OPLIST" is a list of operations to pass to "semop". "OPLIST" is a concatenation of smaller lists, each which has three values. The first is the semaphore number, the second is the operation and the last is a flags value. See semop(2) for more details. For example $sem->op( 0, -1, IPC_NOWAIT, 1, 1, IPC_NOWAIT ); remove Remove and destroy the semaphore set from the system. set ( STAT ) set ( NAME => VALUE [, NAME => VALUE ...] ) "set" will set the following values of the "stat" structure associated with the semaphore set. uid gid mode (only the permission bits) "set" accepts either a stat object, as returned by the "stat" method, or a list of name-value pairs. setall ( VALUES ) Sets all values in the semaphore set to those given on the "VALUES" list. "VALUES" must contain the correct number of values. setval ( N , VALUE ) Set the "N"th value in the semaphore set to "VALUE" stat Returns an object of type "IPC::Semaphore::stat" which is a sub- class of "Class::Struct". It provides the following fields. For a description of these fields see your system documentation. uid gid cuid cgid mode ctime otime nsems ATTRIBUTES See attributes(7) for descriptions of the following attributes: +---------------+-----------------------+ |ATTRIBUTE TYPE | ATTRIBUTE VALUE | +---------------+-----------------------+ |Availability | runtime/perl-532 | +---------------+-----------------------+ |Stability | Pass-through volatile | +---------------+-----------------------+ SEE ALSO IPC::SysV, Class::Struct, semget(2), semctl(2), semop(2) AUTHORS Graham Barr <gbarr@pobox.com>, Marcus Holland-Moritz <mhx@cpan.org> COPYRIGHT Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz. Version 1.x, Copyright (c) 1997, Graham Barr. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. NOTES Source code for open source software components in Oracle Solaris can be found at https://www.oracle.com/downloads/opensource/solaris-source- code-downloads.html. This software was built from source available at https://github.com/oracle/solaris-userland. The original community source was downloaded from http://www.cpan.org/src/5.0/perl-5.32.0.tar.gz. Further information about this software can be found on the open source community website at https://www.perl.org/. perl v5.32.0 2020-06-14 IPC::Semaphore(3)