|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Gaiduk 2:5020/400 19 Jun 2000 18:09:45
To : All
Subject : Re: Вывод 1 234 567 890, вместо 1234567890 ???
--------------------------------------------------------------------------------
>Hе подскажите ли как сделать вывод числа с разделением на триады, т.е.
>выводить не так
>1234567890, а вот так
>1 234 567 890
>
print &commify(3409043796.63);
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1`/g;
return scalar reverse $text;
}
--- ifmail v.2.15dev5
* Origin: InterGalactic MegaTrash Co. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
