|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vitus@ice.ru 2:5020/400 25 Jun 2001 14:38:02
To : "Denis Roshchin"
Subject : Re: round()
--------------------------------------------------------------------------------
Denis Roshchin <denis@komkon.org> wrote:
>> > e.g. есть 73,222222222. надо получить 73,2.
>> можно сделать чистА математически.
>> если конечно ты в школе учился :)
>> умножаешь на 10
>> обрубаешь все что после запятой
>> делишь на 10
>> =)
DR>В школе-то очился...
DR>только этот способ не очень подходит:
DR>Я не знаю в какой раз и сколько у меня будет цифр после запятой.
DR>Хорошо, если всего xx.x
DR>а если xx.xxxxxx, x.xxxxxxxxxxxx
DR>Мне надо конкретно для целого числа.
Т.е. тебе нужна функция
round($real_number,$nubmer_of_decimal_places)?
sub round {
my ($num,$prec) = @_;
$num=~s/([^\.]+\.\d{1,$prec})\d*/$1/;
return $num;
}
sub round {
my ($num,$prec) = @_;
my $multiplier = "1". ("0" x $prec);
return int($num*$multiplier)/$multiplier;
}
--
Victor Wagner vitus@ice.ru
Chief Technical Officer Office:7-(095)-748-53-88
Communiware.Net Home: 7-(095)-135-46-61
http://www.communiware.net http://www.ice.ru/~vitus
--- ifmail v.2.15dev5
* Origin: FT-center (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
round() |
Denis Roshchin |
25 Jun 2001 13:08:52 |
 Re: round() |
Konstantin Ryabov |
25 Jun 2001 13:19:10 |
  Re: round() |
Denis Roshchin |
25 Jun 2001 13:39:25 |
 Re: round() |
vitus@ice.ru |
25 Jun 2001 14:38:02 |
|
Re: round() |
HB |
25 Jun 2001 23:33:58 |
|
Re: round() |
Konstantin Ryabov |
25 Jun 2001 15:00:16 |
|
Re: round() |
Eugene Bodin |
25 Jun 2001 18:51:59 |
|
round() |
Igor Ivlev |
05 Jun 2001 09:40:32 |
|
Re: round() |
Alexander Babanov |
08 Jul 2001 18:26:18 |
|
Re: round() |
Alexander Babanov |
25 Jun 2001 14:39:07 |
|
Re: round() |
Denis Roshchin |
26 Jun 2001 09:45:56 |
|
round() |
Igor Ivlev |
05 Jun 2001 09:36:33 |
|
|
