|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 11 Aug 2000 10:21:26
To : Andrew Maltsev
Subject : Re: Помогите!!!!
--------------------------------------------------------------------------------
<Andrew_Maltsev@f124.n5015.z2.fidonet.org> wrote:
AM>>> Как от этого избавиться? Помогите плиз.
AM>>> #!/usr/bin/perl
AM>>> sub LOCK_SH { 1 } # Для чтения
AM>>> sub LOCK_EX { 2 } # Для записи
AM>>> sub LOCK_UN { 8 } # Unlock File
AM>>> sub filelock
AM>>> {
AM>>> return flock($_[0],$_[1]) if ($unix eq 'yes');
AM>>> 1;
AM>>> }
AM>>> $dat{$id}="$url&&$c&&$email&&$language&&$desc&&$password";
AM>>> open DATA,">desc.dat";
AM>>> &filelock(*DATA, LOCK_EX) || die($!); # фыя чтхэшя - LOCK_SH
AC>> Для начала я бы передавал не *DATA, а \*DATA... Hо может быть, я не прав,
AC>> и независимо от этого, может быть, это отношения к делу не имеет.
AM> А что от этого изменится?
Может, и ничего. А может, флок будет работать с тем, с чем надо.
AC>> И уж в любом случае код возврата flock проверять HАДО.
AM> Дык он проверяется на ||die($!) или нет?
Hет. Проверяется не он, а код возврата filelock. А он всегда 1. Что б тебе
собственный код не прочесть?
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
