ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     08 Sep 2000  14:29:15
 To : "Alexey Folomkin"
 Subject : Re: Очень лёгкая задача
 -------------------------------------------------------------------------------- 
 

 Alexey Folomkin <vwc@tmk.infopac.ru> wrote:
 
 >> Имеем переменную типа $t = "1<B>123</B>434" необходимо оставить в
 AF> переменной
 >> только цифры, т.е. должна получиться новая переменная, например, t1$ =
 >> "1123434".
 >>
 >> Киньте кодом?
 AF> 
 AF> d$="1<B>123</B>3</B>"
 AF> k$=""
 AF> for i=1 to len(d$)
 AF>  for j=0 to 9
 AF>    if " "+mid$(d$,i,1)=str$(j) then
 AF>    k$=k$+mid$(d$,i,1)
 AF>    end if
 AF>  next j
 AF> next i
 AF> ? k$
 AF> 
 AF> Вот код на Бейсике, а как он будет выглядеть на Перле?
 
   $t =~ s/\D//g;
 
            WBW, Artur
 
 -- 
 ТИХОЕД (см. ДАЛЬШЕБУД)
 --- ifmail v.2.15dev5
  * Origin: Sonera Ltd. (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Очень лёгкая задача   Alexey Folomkin   08 Sep 2000 14:16:34   Re: Очень лёгкая задача   Artur Penttinen   08 Sep 2000 14:29:15