ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Aleksey Kotov                        2:5020/2138.19 07 Jul 2002  20:55:44
 To : Ivan Azmanoff
 Subject : find text
 -------------------------------------------------------------------------------- 
 

 
  IA>        В Пеpле не так силен... поэтомy ищy следyющий модyль...
  IA>        Есть y меня десяток текстов. Hyжно найти по введенномy
  IA>        словy абзац, содеpжащий это слово.
  IA>        С поиском то несложно... самое главное - выдиpание абзаца.
  IA>        Есть ли какой модyль, позволяющий выполнять также навигацию
  IA>        по абзацам текста (или дpyгим логическим элементам)?
  IA>        Спасибо.
 
 Text::Query и Text::Query::Advanced берутся на CPANе.
 Позволяют вести поиск словосочетаний с логическими конструкциями or and not
 
 Абзац в нижеприведенном примере определяется по
 пустой следующей строке, табу в начале следующей строки, отступу пробелами (3
 штуки) в начале следующей строки
 
 ...
 $w=<TTT>; # некст лайн
 
           if (
               ($w ne "\n")&
               (! eof TTT)&
               ($w!~/^\ {3}/)
               &($w!~/^\x9/)
              ) {$line=$line.$w; } # если не идентифицировали следующую строку  #
 как начало нового абзаца - добавить                                  #
 прочитанное к нашей будущей строке в                                  # которой 
 будем искать.
 
 ...
 --- -=*=-_______________________________________________Aleksey Kotov
  * Origin:  (2:5020/2138.19)
 
 

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

Тема:    Автор:    Дата:    find text   Ivan Azmanoff   04 Jun 2002 13:16:37   Re: find text   Igor Homyakov   04 Jun 2002 14:57:04   Re: find text   Artem Chuprina   04 Jun 2002 15:07:20   Re: find text   Dmitry Koteroff   10 Jun 2002 17:30:22   find text   Aleksey Kotov   07 Jul 2002 20:55:44