ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     20 May 2002  19:44:05
 To : Denis Lebedev
 Subject : Re: Формирование размера файла
 -------------------------------------------------------------------------------- 
 

 Denis Lebedev <Denis.Lebedev@p14.f64.n5097.z2.fidonet.org> wrote:
 
 > 
 >    Хотелось бы увидеть пpоцедуpу на Perl, котоpая в конце каждой успешной
 > закачки выдавала бы, напpимеp, 121 Кб вместо 124476 байт.
 
 sub convert_size($) {
 
   # 1073741824 = 1GB
   # 805306368  = 0.75GB
   # 1048576    = 1MB
   # 786432     = 0.75MB
   # 1024       = 1KB
 
   my $size = shift or return();
   if ($$size{$_} > 805306368) {
     $$size{$_} = sprintf "%.2fG", $$size{$_} / 1073741824;
   } elsif ($$size{$_} > 786432) {
     $$size{$_} = sprintf "%.2fM", $$size{$_} / 1048576;
   } else {
     $$size{$_} = sprintf "%.2fK", $$size{$_} / 1024;
   }
 }
 
 my $converted_size = convert_size \$real_size;
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Формирование размера файла   Denis Lebedev   19 May 2002 15:46:47   Re: Формирование размера файла   Vladimir Podgorny   20 May 2002 19:44:05