ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Bondarev                      2:4624/1.65    25 Dec 2000  10:21:15
 To : nsv@rv.lg.ua
 Subject : Re: Как отделить разряды числа??
 -------------------------------------------------------------------------------- 
 

 Суббота Декабрь 23 2000 06:57, nsv@rv.lg.ua -> All:
 
  n> Вводим чтото вроде 1234567890, а получаем 1'234'567'890.00
  n> Hатолкните хотябы на мысль, но помниться мне тут вроде уже
  n> решался подобный вопрос.
 
     Приходит такая мысль (навскидку):
 
     my @res;
     while (length($number) >3) {
         push @res, $1 if ($number=~s/(...)$//);
     }
     push @res, $number if ($number);
 
     print join "'", reverse @res;
     Hе обработает, конечно же, что-то типа 1.0е+02
 ... bye.
 --- What can change the nature of a man?..
  * Origin:  (2:4624/1.65)
 
 

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

Тема:    Автор:    Дата:    Как отделить разряды числа??   nsv@rv.lg.ua   23 Dec 2000 07:57:24   Re: Как отделить разряды числа??   Ruslan Bondarev   25 Dec 2000 10:21:15   Как отделить pазpяды числа??   Albert N. MICHEEV   25 Dec 2000 17:35:21   Как отделить разряды числа??   alexander smishlajev   26 Dec 2000 12:00:28