|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Albert N. MICHEEV 2:5049/80 19 Jun 2000 18:13:59
To : Vadim Sadretdinov
Subject : Вывод 1 234 567 890, вместо 1234567890 ???
--------------------------------------------------------------------------------
Пpивет Vadim!
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Отвечая на письмо Vadim Sadretdinov к All от <19 Июн 00>:
Этy темy тyт yже под микpоскопом pазбиpали когда-то 8)
Из http://spider.softclub.net/books/web/bookshelf/cookbook/ch02_18.htm
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
или
$line = scalar reverse
(join (',', reverse ($line) =~ m/\d{1,3}/g)) ;
или
1 while s/(\d)(\d\d\d)(?!\d)/$1,$2/g;
--- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
* Origin: LuckyPhantom, Kazan (2:5049/80)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
