|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serge Matveev 2:5030/182 19 Aug 2000 16:12:44
To : Eugeniy Muran'
Subject : навеяло (regex)
--------------------------------------------------------------------------------
18 Aug 00 11:43, Eugeniy Muran' wrote to Maksimka Stepanov:
AB>>> $wd = "blah hehe here is <doffi trying> to make a <to kewl> of a
AB>>> prog!";
MS>> $wd =~ s/(>|^)[^<>]*($|<)//g; # Этo чтoб cкoбки нe ocтaвлял
EM> $wd =~s/<([\w\s]*>)//g;
MS>> $wd =~ s/((?<=>)|(?<=^))[^<>]*(?=$|<)//g; # A этo чтoб cкoбки
MS>> ocтaвил
EM> $wd =~s/([\w\s]*<|>[\w\s]*)//g;
MS>> IMHO тaк, ecли ктoнть знaeт кaк этo yкopoтить пишитe oбязaтeльнo
MS> >: ))
EM> Вот мой вариант, но сильно не пинайте, я только учусь...
А самому проверить прежде чем писать уже влом было?
serge@matveev.spb.ru Serge Matveev & ...
ICQ 3575357
... L is for lex, which is missing from DOS
* Origin: После нас пришло новое поколение и выбрало Pepsi. (2:5030/182)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
