Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: singleton lock not reliable

by stevieb (Canon)
on Jun 25, 2021 at 01:36 UTC ( #11134268=note: print w/replies, xml ) Need Help??

in reply to singleton lock not reliable

First thing I thought of was shared memory. In IPC::Shareable, if one attempts to create a shared memory segment that has already been created in a separate process with exclusive set, the second process will croak(). So what I did is add a graceful flag to its options, and when set, the second process that tries to create the exclusive segment simply exits gracefully with no noise or anything. Observe:

use warnings; use strict; use IPC::Shareable; tie my $lock, 'IPC::Shareable', { key => 'LOCK', create => 1, exclusive => 1, destroy => 1, graceful => 1 }; $lock = $$; print "procID: $lock\n"; sleep 5;

Run it in one window:

spek@scelia ~/scratch $ perl procID: 21241 sleeps for a few seconds, during which we run it in the second window:

spek@scelia ~/repos/ipc-shareable $ perl ~/scratch/ spek@scelia ~/repos/ipc-shareable $ exited before it printed anything. After the five second sleep in proc one is done, run it in window two:

spek@scelia ~/repos/ipc-shareable $ perl ~/scratch/ procID: 21339

So, in essence, this question prompted me to update the distribution to handle your very issue, ummm, well, gracefully. I just published it, so it may not yet be available at your mirror. Version 1.01 has the new 'graceful' feature.

Replies are listed 'Best First'.
Re^2: singleton lock not reliable
by stevieb (Canon) on Jun 25, 2021 at 15:43 UTC

    I've done one better. I've added a singleton() method. Its specifically designed to prevent more than one instance of any script (or processes that share the same shared memory segment). It's trivial to use, as it hides all of the various flags:

    use IPC::Shareable; IPC::Shareable->singleton('LOCK'); # Do scripty perl stuff here

    That's it. You can now be guaranteed that if a second instance of the script starts, it'll exit gracefully immediately as soon as singleton() is called.

    You can also tell it to emit a notice that the script is exiting by sending in a true value as the second 'warn' param:

    IPC::Shareable->singleton('LOCK', 1);

    If a second instance is run, the following will be thrown:

    Process ID 14784 exited due to exclusive shared memory collision

    Version 1.03 has this update.

      Good, better, best!

      I released a new distribution, Script::Singleton that ensures only a single instance of a script can run at any time. No methods or flags to use, you simply:

      use Script::Singleton 'LOCK';

      That's it! LOCK is the glue/key that identifies the shared memory segment. As with my last update, send in a true value to get a warning if a second instance of a script tries to run but has to exit:

      use Script::Singleton 'LOCK', 1;

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2023-09-30 17:10 GMT
Find Nodes?
    Voting Booth?

    No recent polls found