|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrew Maltsev 2:5015/124 02 Aug 2000 19:41:38
To : All
Subject : Помогите!!!!
--------------------------------------------------------------------------------
Блин, делаю запись в файл так. Hо не смотря на залочку время от времени у меня
в процессе записи очередной строки в файл, происходит разбивка ее на две :
Было :
aaaaaaaabbbbbbbbbb
Стало :
aaaaaaaa
bbbbbbbb
Как от этого избавиться? Помогите плиз.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
< SKIP >
$unix = 'yes';
sub LOCK_SH { 1 } # Для чтения
sub LOCK_EX { 2 } # Для записи
sub LOCK_UN { 8 } # Unlock File
sub filelock
{
return flock($_[0],$_[1]) if ($unix eq 'yes');
1;
}
$dat{$id}="$url&&$c&&$email&&$language&&$desc&&$password";
open DATA,">desc.dat";
&filelock(*DATA, LOCK_EX) || die($!); # фыя чтхэшя - LOCK_SH
foreach (keys %dat)
{
print DATA "$_\n$dat{$_}\n";
}
close DATA;
&filelock(*DATA, LOCK_UN);
http://www.aqua.nnov.ru - Рейтингующий каталог AQUA TOP100!
... info@aqua.nnov.ru
--- GoldED/386 3.00.Alpha5+
* Origin: Я тебя поцелую... Потом... Если захочешь... (2:5015/124)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
