Forum Webscript.Ru

Программирование => Perl => Тема начата: DamonLSD от 28 Апреля 2005, 14:43:33

Название: Поиск нескольких строк или как вырезать ненужные строки
Отправлено: DamonLSD от 28 Апреля 2005, 14:43:33

Привет.
Подскажите пожалуйста сабж.
Имеется текстовый файл, в которм большинство строк начинаются со знака ! а заканчиваются строкой, которая начинается со знака + Например:
!
!
!
мусор мусор
ненужные строки
которые надо удалить
+---------

Я понимаю, что можно поступить следующим образом - удалить все строки, которые НЕ начинаются со знаков ! и +. Но мне надо, чтобы было условие, удалить ВСЕ, что начинается после последней "! строки" и до "+ строки".

Если коряво объяснил, прошу извинения за столь ламерскую проблему. :)

Название: Поиск нескольких строк или как вырезать ненужные строки
Отправлено: Green Kakadu от 28 Апреля 2005, 15:42:34

если ты все считываешь в одну строку, то примерно так:
$str=~s/![^!]+?\\+.*?\\n//gs;