|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : mrrc 2:5020/400 02 Jul 2001 17:35:32
To : All
Subject : Как вывести только первые две цифры после запятой?
--------------------------------------------------------------------------------
Hеобходимо в нижеприведенной конструкции, после того как из открываемого
файла считается информация в переменную $a, складывания всех числовых строк
этого файла в общую сумму, после чего происходит деление получившийся
величины на 1048576.0 для перевода в мегабайты, так вот задача заключается в
том, чтобы из получаемого в процессе этого деления остатка (после запятой)
выводить только первые две цифры, то есть сотые мегабайта, а все остальное
отсекать, как это можно сделать, кто скажет?
То есть, например, из полученного после деления значения 1.49038028717041
нужно вывести в результате только 1.49
$full_in=0.0;
open(F,"/var/log/count/daily/received.2001-07-01");
while($a=<F>){$full_in+=$a;}
close(F);
$full_in=($full_in/1048576.0); # перевод в мегабайты
print "Получено: <b>$full_in</b> Мб\n";
--- ifmail v.2.15dev5
* Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
