|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 19 Jun 2000 17:16:57
To : All
Subject : Re: Вывод 1 234 567 890, вместо 1234567890 ???
--------------------------------------------------------------------------------
> Hе подскажите ли как сделать вывод числа с разделением на триады, т.е.
> выводить не так
> 1234567890, а вот так
> 1 234 567 890
#!perl -w
use strict;
while(<>){
chomp;
while(s/(\d)(\d\d\d)($|\s)/$1 $2$3/){}
print "$_\n";
}
--
Konstantin Tokar (http://www.mpei.ac.ru/tokar)
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
