ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Bulat Ziganshin                      2:5093/28.126  07 Mar 2002  04:19:16
 To : Pavel Reich
 Subject : форматирование числа
 -------------------------------------------------------------------------------- 
 

 
 Wednesday March 06 2002, Pavel Reich writes to All:
 
  PR> $price=12345.67;
  PR> нужно получить строку вида "12 345,67".
  PR> что-то не могу регексп составить...помогите плиз.
  PR> даже точнее нужно из 12345 -> 12 345
 
 где-то в факах было аж несколько способов. вот один из них
 
 === Cut ===
 sub fmt {                 # "12345" => "12,345"
   my $a = reverse $_[0];
   $a =~ s/(...)(?=.)/$1,/g;
   return scalar reverse $a;
 }
 
 === Cut ===
 
 Bulat, mailto:bulatz-AT-fort.tatarstan.ru, ICQ: work 15872722, home 11849833
 
 ... Иногда для того, чтобы изменить свое восприятие мира,
 ... люди пытаются изменить сам мир
 --- GoldED+/W32 1.1.2
  * Origin: Сетевой фильтр на 5 базаров (2:5093/28.126)
 
 

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

Тема:    Автор:    Дата:    форматирование числа   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