|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Eugene Bodin 2:5020/400 25 Jun 2001 18:51:59 To : All Subject : Re: round() -------------------------------------------------------------------------------- Hello Denis, Denis Roshchin <denis@komkon.org> wrote: DR> > > e.g. есть 73,222222222. надо получить 73,2. Кстати, я не понял - а из 73 что нужно получить: 73.0 или 73 ? [skip] DR> В школе-то очился... DR> только этот способ не очень подходит: DR> Я не знаю в какой раз и сколько у меня будет цифр после запятой. А кто тогда это знает? DR> Хорошо, если всего xx.x DR> а если xx.xxxxxx, x.xxxxxxxxxxxx DR> Мне надо конкретно для целого числа. DR> DR> А какая функция отрубате до знака? [s]printf ( ".0f", $number); sub round{ my ($num, $prec) = @_; $num= sprintf("%.${prec}f", $num); # Если завершающие нули не нужны: $num =~ s/\.?0+$//; return $num; } Best regards, Eugene --- ifmail v.2.15dev5 * Origin: Home (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1523545c1c3b.html, оценка из 5, голосов 10
|