|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Konstantin Ryabov 2:5020/400 03 Jul 2001 11:25:29
To : All
Subject : Re: Как вывести только первые две цифры после запятой?
--------------------------------------------------------------------------------
"Sergey Ledenev" <Sergey.Ledenev@f31.n5027.z2.fidonet.org> wrote in message
news:994083557@f31.n5027.z2.ftn...
> Привет mrrc!
>
> 02 июля 2001 года (а было тогда 17:35)
> mrrc в своем письме к All писал(а):
> m> Hеобходимо в нижеприведенной конструкции, после того как из
> m> открываемого файла считается информация в переменную $a, складывания
> m> всех числовых строк этого файла в общую сумму, после чего происходит
> m> деление получившийся величины на 1048576.0 для перевода в мегабайты,
> m> так вот задача заключается в том, чтобы из получаемого в процессе
> m> этого деления остатка (после запятой) выводить только первые две
> m> цифры, то есть сотые мегабайта, а все остальное отсекать, как это
> m> можно сделать, кто скажет? То есть, например, из полученного после
> m> деления значения 1.49038028717041 нужно вывести в результате только
> m> 1.49
Perl CookBook
Recipe 2.3
######################
Solution
Use the Perl function sprintf, or printf if you're just trying to produce
output:
$rounded = sprintf("%FORMATf", $unrounded);
###################
$a = 0.255;
$b = sprintf("%.2f", $a);
print "Unrounded: $a\nRounded: $b\n";
printf "Unrounded: $a\nRounded: %.2f\n", $a;
Unrounded: 0.255
Rounded: 0.26
Unrounded: 0.255
Rounded: 0.26
######################
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Как вывести только первые две цифры после запятой?