ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Kuznetsov                      2:5020/238.1   03 Jun 2001  05:43:05
 To : All
 Subject : flock
 -------------------------------------------------------------------------------- 
 

 
 Как правильно пользовать flock при inplace edit?
 тоесть есть такой вот скрипт:
 
 ---[cut]---
  $^I   = '.bak';                  
   @ARGV = 'dat';                  
   while (<>)
   {
  ($pz, $nm) = split(/::/);
 
  if ($_=~ m/vasya/)
         {       
 $nm++;
 print "$pz","::","$nm\n";
         } else {
 print $_;
                 }
 }
 ---[cut]---
 
 И можно ли тут использовать flock(FH, LOCK_EX) ? Если можно (и если нужно
 вообще при $^I), то какой будет filehandle?
 В perldoc -f flock что-то я не нашел как сделать...
 
 Заранее спасибо!
 
 Vadim.
 
 --- Blue Wave/DOS v2.30
  * Origin: InfoScience BBS user's message (2:5020/238.1)
 
 

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