Chanan Berler wrote:
> Hi Dov,
>
> Don't thinks so, our game server is found running on more than 1
> machine, all forking processes, and all using on big raid HD
> this is our main reason for using OS fcntl (file control) to lock
> processes from entering the critical section.
REGARDING THE "big raid HD" - how do all hosts use it? does it have a
shared file system? or a it is served to all hosts via NFS?
in general, using 'flock' may not work properly over NFS. if you use a
shared file system (GFS or another) - it already has a distributed
lock-management service - check if you can use it.
according to wikipedia, the lock managers of redhat's GFS file system,
and of oracle's OCFS2 file system, are part of the standard linux
kernel, from version 2.6.19, more or less. see the relevant section in
this wikipedia article:
http://en.wikipedia.org/wiki/Distributed_lock_manager
--guy
>
> I thought it's best - if we could have used the mySQL (using memory
> based database) to create a locking mutex table.
> But people here were against the idea - since it will overhead the mySQL
> server.
>
> Chanan
>
>
> On Wed, Oct 20, 2010 at 11:14 AM, Levenglick Dov-RM07994
> <[email protected]> wrote:
>> Would KeyedMutex on a aserver be good?
>> http://search.cpan.org/~kazuho/KeyedMutex-0.06/lib/KeyedMutex.pm
>>
>>
>> Best Regards,
>> Dov Levenglick
>> SmartDSP OS Development Leader
>>
>> -----Original Message-----
>> From: [email protected] [mailto:[email protected]] On Behalf
>> Of Chanan Berler
>> Sent: Wednesday, October 20, 2010 10:30
>> To: Shlomi Fish
>> Cc: [email protected]
>> Subject: Re: [Israel.pm] critical section
>>
>> Hi Shlomi,
>>
>> Thanks for you quick answer. here are some insights regarding my code:
>>
>> 1) When openning a new file handler and leaving the sub, will it not
>> close the file and release the resource - although it
>> depends on the grabage collector...
>>
>> 2) Also when trying the enter critical section L1, and then trying to
>> enter critical section L2, and then close critical
>> section L2, how will perl know how to close critical section L1 -
>> since the file handler is the same ?
>>
>> 3) How will this work when our game server is process (fork), same
>> resources are shared.
>>
>> 4) will using LOCK_UN flag and flock - will it remove the file for me,
>> after closing the file ? or do i need to use unlink
>>
>> 5) Is there a better way to lock critical sections, CPAN modules...I
>> have notices the flock is not recommanded when trying
>> to lock over the network (our game servers are running apache and
>> sending requested using http/https)
>> PS: I though ot using mySQL with cache database, for locking - but
>> was told the IO overhead will be worse
>> (this is way they used filesystem locking files).
>>
>> thanks
>> Chanan
>>
>> Thanks
>> Chanan
>>
>>
>>
>>
>>
>> On Tue, Oct 19, 2010 at 7:50 PM, Shlomi Fish <[email protected]> wrote:
>>> Hi Chanan,
>>>
>>> Let me comment on your code and answer your questions.
>>>
>>> On Tuesday 19 October 2010 15:18:17 Chanan Berler wrote:
>>>> Hello to all perl programmers
>>>> I am trying to lock some code as critical section:
>>>> my code excepts mode_lock, mutex (filename to lock), and timeout and
>>>> will lock / unlock the file.
>>>> I am running this on RedHOT linux and Perl version 5.10.
>>>>
>>>> Q1: calling this function to lock the file, will I lose the LOCK_FILE
>>>> due to scope issue ?
>>> No you won't because you have localised it. But it should be a lexical
>>> variable with a limited scope, and possibly a slot of an object.
>>>
>>>> Q2: what will happen if I open a critical section, within another
>>>> critical section ? with diffrent mutex files, will it still work for
>>>> me ?
>>>> (means will it release the right LOCK_FILE handler ?
>>> Well, there could be a problem if process A locks lock L1 and process B
>>> locks
>>> lock L2 and then A tries to lock L2 and B tries to lock L1, which results
>>> in a
>>> deadlock. There are ways to overcome it.
>>>
>>>> Q3: is there a better way to lock / unlock critical sections ?
>>> Maybe look in CPAN. It depends on the constraints of your program.
>>>
>>>> thanks
>>>> Chanan
>>>>
>>> Now for your code.
>>>
>>>> sub _get_lock_priority_
>>> Why do you have a trailing underscore in the function name?
>>>
>>>> {
>>>> my ($server, $params) = @_;
>>> There should be an empty line after that.
>>>
>>>> my $succeded_operation = 0;
>>>> my $mutex_filename = $params->{mutex} . ".lock";
>>>>
>>>> # enable critical section
>>>> if ($params->{mode_lock} eq "GET_LOCK_MODE_ID")
>>>> {
>>>>
>>>> open (LOCK_FILE, "> $mutex_filename");
>>> 1. Use three args open.
>>>
>>> 2. Don't use typeglobs as file handles - use lexicals.
>>>
>>> 3. Handle an error return value (using "or die or something").
>>>
>>>> foreach (0 .. ($params->{timeout} - 1))
>>>> {
>>>> $succeded_operation = 1 if flock (LOCK_FILE , 2|4);
>>> You have magical numbers here - you should use the name LOCK_UN/LOCK_EX/etc.
>>> constants mentioned in perldoc -f flock.
>>>
>>>> last if ($succeded_operation);
>>> Why not write it as:
>>>
>>> if (flock(LOCK_FILE, LOCK_EX()|LOCK_NB()))
>>> {
>>> $succeeded_operation = 1;
>>> last TIMEOUT_LOOP;
>>> }
>>>
>>> (And make sure you label the loop with TIMEOUT_LOOP;
>>>
>>>> sleep(1);
>>>> }
>>>> } else
>>> Don't cuddle your else's. And this is indicative that these should be two
>>> different subroutines.
>>>
>>>> {
>>>> # disable critical section
>>>> $succeded_operation close(LOCK_FILE);
>>> This statement won't compile.
>>>
>>>> foreach (0 .. ($params->{timeout}-1))
>>>> {
>>>> if (-e $mutex_filename)
>>>> {
>>>> $succeded_operation = 1;
>>>> last;
>>>> }
>>>> sleep(1); }
>>>> }
>>>> return $succeded_operation;
>>> I don't think that closing the lock file will delete this file, so this
>>> statement will just loop for $params->{timeout} seconds.
>>>
>>> Better just call flock with LOCK_UN().
>>>
>>> Regards,
>>>
>>> Shlomi Fish
>>>
>>> --
>>> -----------------------------------------------------------------
>>> Shlomi Fish http://www.shlomifish.org/
>>> Original Riddles - http://www.shlomifish.org/puzzles/
>>>
>>> <rindolf> She's a hot chick. But she smokes.
>>> <go|dfish> She can smoke as long as she's smokin'.
>>>
>>> Please reply to list if it's a mailing list post - http://shlom.in/reply .
>>>
>>
>>
>> --
>> ===================
>> ---- Chanan Berler ----
>> ===================
>> _______________________________________________
>> Perl mailing list
>> [email protected]
>> http://mail.perl.org.il/mailman/listinfo/perl
>> _______________________________________________
>> Perl mailing list
>> [email protected]
>> http://mail.perl.org.il/mailman/listinfo/perl
>
>
>
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
