ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman =KRoN= Karshiev                2:5020/400     07 Mar 2002  11:00:18
 To : Bulat Ziganshin
 Subject : Re: форматирование числа
 -------------------------------------------------------------------------------- 
 

 "Bulat Ziganshin" <Bulat.Ziganshin@p126.f28.n5093.z2.fidonet.org> wrote
 in message news:1015471200@p126.f28.n5093.z2.ftn...
 
 >  PR> даже точнее нужно из 12345 -> 12 345
 > sub fmt {                 # "12345" => "12,345"
 >   my $a = reverse $_[0];
 >   $a =~ s/(...)(?=.)/$1,/g;
 >   return scalar reverse $a;
 > }
 
 Гм. У меня в "заметках" два варианта:
 while(s/(\d)(\d\d\d)($|\s)/$1 $2$3/){}
 и
 1 while s/(\d)(\d{3})(?!\d)/$1 $2/;
 
 --
 ...Глубина-глубина, я не твой...
 =KRoN=, http://kron.da.ru, ICQ#4886816
 --- ifmail v.2.15dev5
  * Origin: Al Quaeda (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    форматирование числа   Pavel Reich   06 Mar 2002 23:55:34   форматирование числа   Bulat Ziganshin   07 Mar 2002 04:19:16   Re: форматирование числа   Roman =KRoN= Karshiev   07 Mar 2002 11:00:18   Re: форматирование числа   Artem Chuprina   07 Mar 2002 13:19:06