|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Onokhov 2:5020/400 01 Nov 2003 02:21:40
To : Alexander Ilyankin
Subject : Re: Удалить строки в файле (виртуально)
--------------------------------------------------------------------------------
Alexander Ilyankin <Alexander.Ilyankin@p81.f9.n5059.z2.fidonet.org> writes:
> Подскажите как можно виртуально удалить строчки в файле ?
> Вот например открыли файл для чтения, который состоит из 10 строк:
> open (T, "f.txt"); @lines = <T>; close(T);
> Ему присвоена переменная @lines. А теперь нужно удалить (виртуально) строчки
> которые равны "www". Hапривер таких строчек 4. Значит после удаления
> переменная @lines должна быть равна этому открытому файлу но без строчек
> равных "www". В итоге должно получиться что переменная файла @lines состоит из
> 6 строчек (естественно без строчек равных "www"). Главное чтобы с переменной
> @lines можно было работать, как будто строк www там и небыло.
open (T, "f.txt"); @lines = grep{$_ ne "www\n"} <T>; close(T);
--
Alexander
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: What me? (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Удалить строки в файле (виртуально) 