ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Sulemanov                     2:4635/1024.27 26 Apr 2003  00:30:53
 To : Renat Araslanow
 Subject : удаление строки по шаблону
 -------------------------------------------------------------------------------- 
 

  RS>>>     open(FU,"+< $path") || die "$!\n";
  RS>>>     flock(FU,2);
  RS>>>     undef @mster;
  RS>>>    while(<FU>)
  RS>>>    {
  RA>>             last if($_=~m/^\s*($шаблон)\s*$/i)
  RA>>         }
  RA>>        $tls=tell FU;
  RS>>>    $szs=length($_);
  RA>>         undef $/;
  RA>>         $rest = <FU>;
  RA>>         seek( FU, $tls-($szs + $lenght_of_input_rec_sep), SEEK_SET);
  RA>>         binmode FU;
  RA>>         print FU $rest;
  RA>             truncate FU, tell(FU)-($szs+ $lenght_of_input_rec_sep);
  RA>>         #flock, афаир, снимается после закрытия файла
  RA>>         close FU;
  RA>> И ФСЁ!
  RA> вот теперь действительно фсё.
 
     тогда было yже всё! :) зачем было дескриптор обрезать там где   
 $tls-($szs...., если yже делаешь truncate ?
     что значит $lenght_of_input_rec_sep ?
     странно что текст не потерял \n при добавлении $rest...
      С Уважением, Руслан.
 
 --- GoldED+/FreeBSD 4.8-STABLE
  * Origin: *JEET:* support@icu.net.ua *:UA* (2:4635/1024.27)
 
 

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

Тема:    Автор:    Дата:    удаление строки по шаблону   Ruslan Sulemanov   24 Apr 2003 17:24:53   удаление строки по шаблону   Renat Araslanow   25 Apr 2003 01:05:30   удаление строки по шаблону   Renat Araslanow   25 Apr 2003 21:04:09   удаление строки по шаблону   Ruslan Sulemanov   26 Apr 2003 00:30:53   удаление строки по шаблону   Renat Araslanow   26 Apr 2003 19:00:36   удаление строки по шаблону   Ruslan Sulemanov   28 Apr 2003 15:00:03   удаление строки по шаблону   Ruslan Sulemanov   25 Apr 2003 13:44:59   Re: удаление строки по шаблону   Alexey Mahotkin   25 Apr 2003 03:04:14   Re: удаление строки по шаблону   Yevgeny Manyashev   25 Apr 2003 08:16:24