регуляное выражение - хитрый шаблон.

[Shredder2003]

регуляное выражение - хитрый шаблон.

вот текст:
"
where timps991.t\$plnc = :kod_plana
--and timps991.t\$year = :year
and timps991.t\$prod = :month
"
необходимо из него вытащить забиндиваемые переменные, причём только те, где строки НЕ закомментированы.
вытащить все переменные я вытащил, а дальше не знай как.
помогите, плиз.
Надо, чтоб на выходе был массив 'kod_plana', 'month'.
Perl-совместимые функции использовать требуется.

 

[DiMA]

1. удаляешь регом комменты ^\s*--
2. ищешь переменные

 

[RBCL]

у тебя есть разделитель переменных and толкайся от него, например используя что-то типа strtok, а перед обработкой, поищи строки от "--and" до "and" - убьешь коменты. у тебя получится массив всех передаваемых параметров - из него выбираем по строке и расчленяем на имя переменной и значение переменной используя токен "=:" например.