ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrew Maltsev                       2:5015/124     06 Aug 2000  20:26:46
 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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор