Hi
I needed to use flock and found the docs confusing and the demo code slightly dangerous ( lock is another builtin for threading)
So I hacked a demo script, where only one instance will count from 1 to 10 when simultaneously running.
use v5.12; use warnings; #use Data::Dump; use Fcntl qw(:flock); use Time::HiRes qw/time sleep/; $|=1; my $lock_path = "./LOCK_DEMO"; my $wait = 10; # ------- traditional way test for existence say "First One !?!" if ! -e $lock_path; # NB: This fails sometimes because of race condition # ------ Open open my $fh, ">", $lock_path or die "Can't open $lock_path: $!"; # ------ Lock File say "Wait for Access"; flock($fh, LOCK_EX) or die "Cannot lock $lock_path - $!"; # ------ Unrivaled Actions say "There can be only one HIGHLANDER!"; for (1..$wait) { say $_; sleep 1; } say "I'm done"; # ------ Release Lock say "Un-Locking"; flock($fh, LOCK_UN) or die "Cannot unlock $lock_path - $!"; # ============ The last one has to switch off the light # ------ allow concurrent lock sleep 0.01; # ----- Test Non-Blocking Lock say "Try Lock without waiting"; my $can_lock = flock($fh, LOCK_EX | LOCK_NB); # ------ Close close $fh; # ----- Last script cleans up LOCK-File for next demo if ($can_lock) { say "LAST ONE!!!"; say "delete $lock_path"; unlink $lock_path or die "Cannot delete $lock_path - $!"; } else { say "not last one" } # ----- Keep cmd window open for a while for (1..20) { print "."; sleep 1; }
On windows you can start 4 simultanous instances from CMD with
> start perl demo_lock.pl & start perl demo_lock.pl & start perl demo_ +lock.pl & perl demo_lock.pl
The first three scripts will pop up in separate windows which you could/should arrange to be visible.
Have fun! :)
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: File lock demo
by davido (Cardinal) on Apr 21, 2021 at 19:21 UTC | |
by LanX (Saint) on Apr 21, 2021 at 19:44 UTC | |
by davido (Cardinal) on Apr 21, 2021 at 20:35 UTC | |
by LanX (Saint) on Apr 21, 2021 at 21:07 UTC | |
by LanX (Saint) on Apr 24, 2021 at 00:33 UTC | |
by davido (Cardinal) on Apr 24, 2021 at 17:27 UTC | |
by LanX (Saint) on Apr 24, 2021 at 17:38 UTC | |
by eyepopslikeamosquito (Archbishop) on Apr 24, 2021 at 22:06 UTC | |
by LanX (Saint) on Apr 24, 2021 at 23:45 UTC | |
Re: File lock demo
by eyepopslikeamosquito (Archbishop) on Apr 21, 2021 at 22:46 UTC | |
by LanX (Saint) on Apr 23, 2021 at 15:36 UTC | |
Re: File lock demo
by perlfan (Vicar) on Apr 25, 2021 at 09:46 UTC | |
by LanX (Saint) on Apr 25, 2021 at 10:23 UTC |
Back to
Meditations