|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ilya Genkin 2:5083/21 30 May 2001 15:35:53
To : All
Subject : Re: Расскажите, как нормально дедается блокирование файла
--------------------------------------------------------------------------------
.RFC-X-Complaints-To: news@fido.online.kz
.RFC-NNTP-Posting-Date: 30 May 2001 08:35:57 GMT
.RFC-X-Priority: 3
.RFC-X-MSMail-Priority: Normal
.RFC-X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
"Alexander Averbuh" <Alexander_Averbuh@p123.f69.n4625.z2.fidonet.org> wrote:
> Сабж, pls. Т.е, если на сайт заходит одновременно несколько человек и
запускают
> скрипты, которые могут читать/писать в файл. Как обычно делается
блокировка?
&GetFileLock;
делаешь все, что надо
&ReleaseFileLock;
sub GetFileLock {
local ($lock_file) = @_;
local ($endtime);
$endtime = 10;
$endtime = time + $endtime;
# We set endtime to wait 10 seconds
while (-e $lock_file && time < $endtime) {
# Do Nothing
}
flock(LOCK_FILE, 2); # 2 exclusively locks the file
} # end of get_file_lock
sub ReleaseFileLock {
local ($lock_file) = @_;
# 8 unlocks the file
flock(LOCK_FILE, 8);
} # end of ReleaseFileLock
> С уважением, Alexander
ig
--- Microsoft Outlook Express 5.50.4133.2400
* Origin: KazNet (ISP BBS) (2:5083/21@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
