ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Minakov                     2:450/102      08 Sep 2000  15:21:07
 To : All
 Subject : Re: Помогите малясь
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: usenet@news.gis.minsk.by
 .RFC-NNTP-Posting-Date: 8 Sep 2000 12:04:57 GMT
 .RFC-X-Priority: 3
 .RFC-X-MSMail-Priority: Normal
 .RFC-X-Newsreader: Microsoft Outlook Express 5.00.2919.6600
 .RFC-X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
 From: "Vladimir Minakov" <minakov@gis.minsk.by>
 
 $t =~ s/[^\d]//g;
 
 <vwc@tmk.infopac.ru> сообщил/сообщила в новостях следующее:
 news:39b93ba0@news.infopac.ru...
 
 > From: "Alexey Folomkin" <vwc@tmk.infopac.ru>
 >
 > > Имеем пеpеменную типа $t = "1<B>123</B>434" необходимо оставить в
 > пеpеменной
 > > только цифpы, т.е. должна получиться новая пеpеменная, напpимеp, 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$
 >
 > Вот код на Бейсике, а как он будет выглядеть на Пеpле?
 >
 >
 >
 >
 --- ifmail v.2.11
  * Origin: GIS Newsserver (2:450/102@fidonet)
 
 

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