ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Folomkin                      2:5020/400     08 Sep 2000  14:18:48
 To : All
 Subject : Помогите малясь
 -------------------------------------------------------------------------------- 
 

 > Имеем переменную типа $t = "1<B>123</B>434" необходимо оставить в
 
 переменной
 
 > только цифры, т.е. должна получиться новая переменная, например, t1$ =
 > "1123434".
 >
 > Киньте кодом?
 
 d$="1<B>123</B>3</B>"
 k$=""
 for i=1 to len(d$)
  for j=0 to 9
    if " "+mid$(d$,i,1)=str$(j) then
    k$=k$+mid$(d$,i,1)
    end if
  next j
 next i
 ? k$
 
 Вот код на Бейсике, а как он будет выглядеть на Перле?
 --- ifmail v.2.15dev5
  * Origin: "InfoPAC NewsServer" (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Помогите малясь   Alexey Folomkin   08 Sep 2000 14:18:48   Помогите малясь   Alexander Shulgin   08 Sep 2000 16:37:46   Помогите малясь   Slava Korchagin   08 Sep 2000 17:28:20   Помогите малясь   Denis Vassilyev   08 Sep 2000 22:09:09