Есть текстовый файл. Из него необходимо вырезать комментарии.

1) комментарии отделены от текста двумя линиями из дефисов;


текст текст текст
---------------------------
здесь комментарий
---------------------------
текст текст текст



2) комментарий не может начинаться с цифры

3) длина комментария не может быть более одной строки (любой длины)

4) могут идти два комментария подряд:


текст текст текст
---------------------------
здесь комментарий
---------------------------
здесь комментарий
---------------------------
текст текст текст


В прикрепленном файле исходник.




Это сообщение отредактировал(а) Suppir - 11.2.2011, 15:21

Присоединённый файл ( Кол-во скачиваний: 8 )
 ____.txt 2,78 Kb

Решаемая ли это задача с помощью регулярных выражений?

А вот как должно получиться (файл прикрепил).

Это сообщение отредактировал(а) Suppir - 11.2.2011, 15:15

Присоединённый файл ( Кол-во скачиваний: 7 )
 _____.txt 2,78 Kb

у вас неопределенность -- последний комментарий (который идет с одной линией) может быть только последним
это так и надо?

arto,

это не комментарий одной линией. Это двойной комментарий вида 


текст текст текст
---------------------------
здесь комментарий
---------------------------
здесь комментарий
---------------------------
текст текст текст



Вся проблема в этих неопределенностях. Нужно точно определять, где мы находимся, внутри комментария или текста, чтобы случайно не отрезать текст.

Добавлено через 5 минут и 55 секунд
Еще раз прикрепил оба файла в архиве. Там хорошо видно, как было, и как должно получиться.

Присоединённый файл ( Кол-во скачиваний: 3 )
 text.ZIP 1,46 Kb

никак.
если вы поставите двойной комментарий в середине текста, разобраться сможет только автор текста и комментария.

выделяйте комментарии правильно.

arto, 

Думаю, что это можно сделать, благодаря следующей информации:
1) комментарий не может начинаться на цифру
2) комментарий всегда состоит из одной строки. 

Попробуйте так:


В $text полностью весь текст.

alezzz, здорово!!!

Понятное дело, я привел только упрощенный пример (на самом деле все гораздо сложнее). Если у меня еще возникнут вопросы, я в этой же теме напишу.

Это сообщение отредактировал(а) Suppir - 11.2.2011, 15:30

Должно работать даже без [^\d], главное чтобы

alezzz, 

на самом деле в 95% случаев длина равна одной строке. Но иногда бывает по несколько строк. Но при этом строки внутри коммента никогда не начинаются на цифру. Можно ли этот случай учесть?

Ну тогда оставляйте как есть. В 95% случаев должно работать правильно . Если комментарий из нескольких строк, то тогда действительно сложная задачка.

Это сообщение отредактировал(а) alezzz - 11.2.2011, 15:40

alezzz, из-за этих 5% все алгоритмы сбиваются :

вот еще вариант, надеюсь перекроет 5%

# perl -0777 -plne 's/^-+\n(?:(?:^[^\d].*\n)+^-+\n)+//mg;'
text A
------------------
comment 1
------------------
text B
------------------
comment 1.7
------------------
text C
^D
text A
text C
#

alezzz, 

Вот такой код работает - удаляет случай, когда в комментарии по 2 строки сразу (и только): 

$text =~ s/^\s*-+\n((^\s*[^\d].*\n){2}^\s*-+\n)+//mg;


а такой код слишком много удаляет:

$text =~ s/^\s*-+\n(?:(?:^\s*[^\d].*\n)+^\s*-+\n)+//mg;

Добавлено через 3 минуты и 35 секунд
Я прикрепил к сообщению архив с более сложным случаем (по несколько строк в одном комменте).

Добавлено через 6 минут и 46 секунд
Кажется, вот такой код заработал:

$text =~ s/^ {3}-+\n(?:(?:^ {3}[^\d].*\n)+^ {3}-+\n)+//mg;


а вот этот код не работал из-за \s*  
$text =~ s/^\s*-+\n(?:(?:^\s*[^\d].*\n)+^\s*-+\n)+//mg;

Присоединённый файл ( Кол-во скачиваний: 1 )
 text2.ZIP 1,54 Kb