|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Lesin 2:5052/5.29 27 Jan 2001 19:53:27
To : Ivanov Anatol
Subject : Помогите с рег выражениями
--------------------------------------------------------------------------------
25 Янв 2001 15:17, you wrote to All:
>> /<P>([^-]+)\s-\s(.+?)<\/P>/i;
>> print $1,$2;
IA> Слово - описание
IA> Слово (от лат. слово2 - ла-ла) - описание
IA> Слово , описание
IA> Слово.
#Попpобуй:
if(/<P>([^-(]+\(?[^)]+\)?)\s[-,]\s(.+?)<\/P>/mi) {print "$1|$2";}
elsif(/<P>([^.]+)\./mi) {print $1;}
Sergey
--- GoldED/W32 3.0.1-asa9 SR1
* Origin: Selenium (2:5052/5.29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
