ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       09 Jul 2003  12:29:41
 To : Victor Wagner
 Subject : Re: добавка
 -------------------------------------------------------------------------------- 
 

 VW> 1. Ставим на файл блокировку LOCK_SHARED.
 VW> 2. Читаем файл
 VW> 3. Модифицируем в памяти прочитанное содержимое
 VW>   (это может быть не просто добавление в начало. Возможно, имеет
 VW>   смысл DOM-парсер использовать)
 VW> 4. Ставим блокировку LOCK_EXCLUSIVE
 VW>   Пишем измененное содержимое
 VW> 5. Закрываем файл (блокировки отпускаются)
 
 Только if $^O ne 'MSWin32'
 
 Конструкция
 
 use Fcntl qw(:flock);
 open(FH,'+<', 'file');
 flock(FH,LOCK_SH);
 flock(FH,LOCK_EX);
 
 под w2k/xp подвешивает Perl (проверял на ASPerl, build 635/806).
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

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