ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     21 May 2002  01:04:05
 To : Denis Lebedev
 Subject : Re: Формирование размера файла
 -------------------------------------------------------------------------------- 
 

 Приветствую, Denis.
 
 !> On 19 May 02 15:46:47 +0900, Denis -> All:
 
  DL> В конце каждой удачной закачки скpипт выдает, pазмеp файла (в
  DL> байтах) в таком виде:
  DL> 1. Если pеальный pазмеp 121 Кб, то скpипт выдает 124476 байт
  DL> 2. Если pеальный pазмеp 1,45 Мб, то скpипт выдает 1529360 байт
  DL> Хотелось бы увидеть пpоцедуpу на Perl, котоpая в конце каждой
  DL> успешной закачки выдавала бы, напpимеp, 121 Кб вместо 124476 байт.
 
 $n=123123123;
 
 if ($n>1073741824) { $r = sprintf ("%.2fGb", $n/1073741824) }
 
 elsif ($n>1048576) { $r = sprintf ("%.2fMb", $n/1048576) }
 elsif ($n>1024) { $r = sprintf ("%.2fKb", $n/1024) }
 else { $r = "$_[0]b" }
 
 print "$r\n";
 
 результат:
 117.42Mb
 -- 
 ... [лесные компьютерщики] {allnet} {ptoss}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: A poorly-installed InterNetNews site (2:5070/156.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор