Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^3: Semaphore puzzle

by jeffenstein (Friar)
on Feb 23, 2021 at 10:35 UTC ( #11128688=note: print w/replies, xml ) Need Help??


in reply to Re^2: Semaphore puzzle
in thread Semaphore puzzle

I think choroba was suggesting this (untested):

$sem = IPC::Semaphore->new( 4321, 1, S_IRUSR | S_IWUSR | IPC_CREAT | I +PC_EXCL ); if ( $sem ) { # New semaphore print "Semaphore created\n"; $sem->setval(0,1); print "Semaphore initialised\n"; } else { # Semaphore already exists so just open it print "Semaphore already exists - just open it\n"; $sem = IPC::Semaphore->new( 4321, 1, S_IRUSR | S_IWUSR ); + ); } print "Locking other threads\n"; $sem->op(0, -1, SEM_UNDO);

But there is still a race condition, where the second process can attach to and use the semaphore after the first process creates it and before the first process initializes it.

Replies are listed 'Best First'.
Re^4: Semaphore puzzle
by jerryhone (Sexton) on Feb 23, 2021 at 17:16 UTC
    I've implemented a process with the sender creating a semaphore before sending a file request so that the receivers can use it - that all seems to work! :)
    Next issue...with our NDM implementation the sending and receiving IDs are different. My receiver processes are running under the receiver ID and can't remove the semaphore created by the sending ID when they're complete, even though both IDs are in the same group and the semaphore has group read/write permission. Is there an IPC semaphore permission that allows deletion by other than the owner?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11128688]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2021-04-19 12:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?