ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     03 Apr 2003  16:09:53
 To : Anton Dvoryashin
 Subject : Re: удаление строк
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Anton Dvoryashin.
 
 AD>  Как удалять в файле строки до встречи в начале строки какого-нибудь 34:45 ?
 
 Как всякая операция по изменению файла, путем интеллектуального копирования
 этого файла в новое имя с последующим rename.
 
 Интеллект в данном случае сводится к 
 
 for ($found = 0; <IN>; ) {
   $found = 1 if /^34:45/;
   next unless $found;
   print OUT $_;
 }
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    удаление строк   Anton Dvoryashin   03 Apr 2003 02:12:51   Re: ??????????????   Andrey Sapozhnikov   03 Apr 2003 15:27:51   Re: удаление строк   Artem Chuprina   03 Apr 2003 16:09:53