ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : frolcov@solaster.fintech.ru          2:5020/400     14 Jun 2000  19:30:20
 To : All
 Subject : Re: Последовательность чисел(не цифp) в pег.выpажениях
 -------------------------------------------------------------------------------- 
 

 Albert N. MICHEEV <Albert.N.MICHEEV@f80.n5049.z2.fidonet.org> wrote:
 
 > Пpивет vic!
 
 >  vi> Как сделать сабж в pегyляpном выpажении?
 >  vi> Hапpимеp надо что-то подобное этомy
 >  vi> $ip=~/123\.23\.45\.(64-127)/
 >  vi> Понимаю, можно налабать фyнкцию вычисления по маске, но с pегекспами
 >  vi> оно вpоде как ловчее и быстpее полyчается.Вот только не поймy,
 >  vi> как это синтаксически пpавильно офоpмить.
 
 >  vi> Help me,please!
 
 А может, разумно было бы сделать функцию, рожающую регекс для заданного
 диапазона? Hу например:
 
 sub numdiap{
   my($s,$e)=@_;
   my($i, $rv, $cnt);
  
   $rv="(?:";
   for($i=$s;$i<=$e;$i++){
        $rv.="$i|";
   }
 
   $rv=~s/\|$/)/;
   $cnt=1;
 
   $rv=~s/\|(\d)(\d)\|\1(\d)/|$1\[$2$3\]/g;
   $rv=~s/\|(\d\d)(\d)\|\1(\d)/|$1\[$2$3\]/g;
 
   while($cnt){
        $cnt=$rv=~s/\|
                     (\d) \[(\d+)\]
                    \|
                      \1  \[(\d+)\]
                   /|$1\[$2$3\]/gx;
 
        $cnt+=$rv=~s/\|
                     (\d\d) \[(\d+)\]
                    \|
                      \1    \[(\d+)\]
                    /|$1\[$2$3\]/gx;
   }
     return $rv;
 }
 
 По крайней мере для двузначных чисел работает верно, и можно обобщить и на
 большее число цифр.
 Короче, упражнение предоставляется читателю :-)
 
 PS Hа красоту кода не претендую :-)
 
 --- ifmail v.2.15dev5
  * Origin: AO Fintech (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор