|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Maxim Y. Zinyakov 2:5065/21 19 Jun 2000 16:26:30
To : Vadim Sadretdinov
Subject : Вывод 1 234 567 890, вместо 1234567890 ???
--------------------------------------------------------------------------------
19 Jun 00 13:11, you wrote to All:
VS> Hе подскажите ли как сделать вывод числа с разделением на триады, т.е.
VS> выводить не так
VS> 1234567890, а вот так
VS> 1 234 567 890
=== Cut ===
#!/usr/bin/perl
$a="1234567890";
while(length($a)){
$b=substr($a,-3,3)." ".$b;
$a=substr($a,0,length($a)-3);
};
print "$b\n"
=== Cut ===
Удачи!
*Maqs.*
--- GoldED/LNX 3.0.1
* Origin: WARNING! System paused: waiting for the miracle... (2:5065/21)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Вывод 1 234 567 890, вместо 1234567890 ??? 
