Как я могу преобразовать число в несколько форм в Perl? - PullRequest
Новая
       15

Как я могу преобразовать число в несколько форм в Perl?

7 голосов
/ 30 сентября 2008

Вы знаете простой и понятный метод / суб / модуль, который позволяет мне преобразовать число (скажем, 1234567,89) в легко читаемую форму - что-то вроде 1,23M?

Сейчас я могу сделать это, сделав несколько сравнений, но я не доволен своим методом: 

if($bytes > 1000000000){ 
   $bytes = ( sprintf( "%0.2f", $bytes/1000000000 )). " Gb/s";                   
}
elsif ($bytes > 1000000){       
   $bytes = ( sprintf( "%0.2f", $bytes/1000000 )). " Mb/s"; 
}
elsif ($bytes > 1000){
   $bytes = ( sprintf( "%0.2f", $bytes/1000 )). " Kb/s"; 
}
else{ 
   $bytes = sprintf( "%0.2f", $bytes ). "b/s";
}

Спасибо за вашу помощь!

Ответы [ 5 ]

20 голосов
/ 30 сентября 2008

Модуль Number :: Bytes :: Human сможет вам помочь.

Пример того, как его использовать, можно найти в кратком обзоре: 

  use Number::Bytes::Human qw(format_bytes);

  $size = format_bytes(0); # '0'
  $size = format_bytes(2*1024); # '2.0K'

  $size = format_bytes(1_234_890, bs => 1000); # '1.3M'
  $size = format_bytes(1E9, bs => 1000); # '1.0G'

  # the OO way
  $human = Number::Bytes::Human->new(bs => 1000, si => 1);
  $size = $human->format(1E7); # '10MB'
  $human->set_options(zero => '-');
  $size = $human->format(0); # '-'
3 голосов
/ 30 сентября 2008

Number :: Bytes :: Human , кажется, делает именно то, что вы хотите.

2 голосов
/ 30 сентября 2008 
sub magnitudeformat {
  my $val = shift;
  my $expstr;

  my $exp = log($val) / log(10);
     if ($exp < 3)  { return $val;   }
  elsif ($exp < 6)  { $exp = 3;  $expstr = "K"; }
  elsif ($exp < 9)  { $exp = 6;  $expstr = "M"; }
  elsif ($exp < 12) { $exp = 9;  $expstr = "G"; } # Or "B".
  else              { $exp = 12; $expstr = "T"; }

  return sprintf("%0.1f%s", $val/(10**$exp), $expstr);
}
2 голосов
/ 30 сентября 2008

В чистом виде Perl я сделал это с помощью вложенного тернарного оператора для сокращения многословия: 

sub BytesToReadableString($) {
   my $c = shift;
   $c >= 1073741824 ? sprintf("%0.2fGB", $c/1073741824)
      : $c >= 1048576 ? sprintf("%0.2fMB", $c/1048576)
      : $c >= 1024 ? sprintf("%0.2fKB", $c/1024)
      : $c . "bytes";
}

print BytesToReadableString(225939) . "/s\n";

Выходы: 

220.64KB/s
0 голосов
/ 30 сентября 2008

Этот фрагмент написан на PHP, и он основан на некотором примере, который кто-то еще имел на своем веб-сайте (извините, приятель, я не помню).

Основная концепция вместо использования if, использовать цикл. 

function formatNumberThousands($a,$dig)
{
    $unim = array("","k","m","g");
    $c = 0;
    while ($a>=1000 && $c<=3) {
        $c++;
        $a = $a/1000;
    }
    $d = $dig-ceil(log10($a));
    return number_format($a,($c ? $d : 0))."".$unim[$c];
}

Вызов number_format () является библиотечной функцией PHP, которая возвращает строку с запятыми между тысячами групп. Я не уверен, существует ли что-то подобное в perl.

Параметр $ dig устанавливает ограничение на количество отображаемых цифр. Если $ dig равен 2, он даст вам 1.2k из 1237.

Для форматирования байтов просто разделите на 1024.

Эта функция используется в некоторых производственных кодах по сей день.

...