[room] need help about regexp

[Anton Gorlov]

Народ.. нужна помощь по поводу 1 регекспа.

Файл написан на чём-то

!/usr/bin/expect --


В нём есть регексп:

  regsub -all {^(.{1,14}).*([#>])$} $reprompt 
{\1([^#>\r\n]+)?[#>](\\([^)\\r\\n]+\\))?}


Строка типа
Cat_Root# через него проходит..а вот строка
вида
c7301-PPPoE-AC> уже нет.
Вопрос.. как поправить регексп чтоб он и такую строку заглатывал?