|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ivanov Anatol 2:5020/400 25 Jan 2001 16:17:09
To : All
Subject : Re: Помогите с рег выражениями
--------------------------------------------------------------------------------
"Sergey Lesin" <Sergey.Lesin@p29.f5.n5052.z2.fidonet.org> сообщил/сообщила в
новостях следующее: news:980370459@p29.f5.n5052.z2.ftn...
> Hello Ivanov.
>
> while(<IN>)
> {
> /<P>([^-]+)\s-\s(.+?)<\/P>/i;
> print $1,$2;
> }
А если немного усложнив, например :
У меня могут быть следующие варианты
Слово - описание
Слово (от лат. слово2 - ла-ла) - описание
Слово , описание
Слово.
Таким образом, мне нужно
1) выделить часть до первого тире, не находящиеся внутри скобок
2) проверка количество слов до искаемого символа, если больше N -
предпологается что встретился в писании (переходим к следующему
разделителю)
3) пытаемся определить первую открывающую скобку
4) см п.2
и тд до последнего разделителя
Заранее благодарю, Иванов Анатолий.
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Помогите с рег выражениями 