|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : mrrc 2:5020/400 02 Jul 2001 20:24:05 To : All Subject : Re: Как вывести только первые две цифры после запятой? -------------------------------------------------------------------------------- "Alexei Ptshelnikov" <alex-ptschel@mtu-net.ru> wrote in message news:9hq1cb$807$1@host.talk.ru... > "mrrc" <pechenin@mrrc.obninsk.ru> сообщил/сообщила в новостях следующее: > news:994080911.661391@basic.maxnet.ru... > > То есть, например, из полученного после деления значения 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); # перевод в мегабайты > > $full_in=sprintf("%.2f",$full_in); > > > > print "Получено: <b>$full_in</b> Мб\n"; Спасибо! --- ifmail v.2.15dev5 * Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/10509a69c46f7.html, оценка из 5, голосов 10
|