ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yevgeny Manyashev                    2:5020/400     25 Apr 2003  08:16:24
 To : Ruslan Sulemanov
 Subject : Re: удаление строки по шаблону
 -------------------------------------------------------------------------------- 
 

 Ruslan Sulemanov wrote:
 
 >                              Hello, All!
 > 
 >     Как yдалить строкy из файла по заданомy шаблонy? (использyюя
 >     один файл)
 >     вот есть рабочий код, но он медленно работает если в файле
 >     больше 35000 строк, что-то около двyх сек. yдаляет...
 
 В смысле, удалить _первую_ строку, в которой встретится заданный шаблон?
 
 У меня получилось вот так:
 
 perl -pi -e'BEGIN{$f=1} if($f&&/шаблон/){$_="";$f=0}' файл
 
 Эффективность у этого, конечно, не ахти, но работает.
 
 >      С Уважением, Руслан.
 
 -- 
 Best regards.
 
 --- ifmail v.2.15dev5
  * Origin: Sibnet (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    удаление строки по шаблону   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