- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1060 [644]
От : Alexander Onokhov 2:5020/400 01 ноября 03, 01:21
Кому : Alexander Ilyankin 01 ноября 03, 05:31
Тема : Re: Удалить строки в файле (виртуально)
-------------------------------------------------------------------------------
From: Alexander Onokhov
Alexander Ilyankin writes:
> Подскажите как можно виртуально удалить строчки в файле ?
> Вот например открыли файл для чтения, который состоит из 10 строк:
> open (T, "f.txt"); @lines = ; close(T);
> Ему присвоена переменная @lines. А теперь нужно удалить (виртуально) строчки
> которые равны "www". Hапривер таких строчек 4. Значит после удаления
> переменная @lines должна быть равна этому открытому файлу но без строчек
> равных "www". В итоге должно получиться что переменная файла @lines состоит
> из 6 строчек (естественно без строчек равных "www"). Главное чтобы с
> переменной @lines можно было работать, как будто строк www там и небыло.
open (T, "f.txt"); @lines = grep{$_ ne "www\n"} ; close(T);
--
Alexander
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: What me? (2:5020/400)