|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 07 Aug 2000 13:02:16
To : Andrew Maltsev
Subject : Re: Помогите!!!!
--------------------------------------------------------------------------------
<Andrew_Maltsev@f124.n5015.z2.fidonet.org> wrote:
AM> Блин, делаю запись в файл так. Hо не смотря на залочку время от времени у
AM> меня в процессе записи очередной строки в файл, происходит разбивка ее на
AM> две :
AM> Было :
AM> aaaaaaaabbbbbbbbbb
AM> Стало :
AM> aaaaaaaa
AM> bbbbbbbb
AM> Как от этого избавиться? Помогите плиз.
AM> #!/usr/bin/perl
AM> print "Content-type: text/html\n\n";
AM> < SKIP >
AM> $unix = 'yes';
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
AM> foreach (keys %dat)
AM> {
AM> print DATA "$_\n$dat{$_}\n";
AM> }
AM> close DATA;
AM> &filelock(*DATA, LOCK_UN);
Для начала я бы передавал не *DATA, а \*DATA... Hо может быть, я не прав, и
независимо от этого, может быть, это отношения к делу не имеет.
И уж в любом случае код возврата flock проверять HАДО.
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Помогите!!!! 
