Как преобразовать число в множественную форму в Perl?
Вопрос
Знаете ли вы простой и понятный метод/подмодуль, который позволяет мне преобразовать число (скажем, 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";
}
Спасибо за помощь!
Решение
А Число::Байты::Человек модуль должен быть в состоянии помочь вам.
Пример того, как его использовать, можно найти в его кратком описании:
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); # '-'
Другие советы
Число::Байты::Человек кажется, делает именно то, что вы хотите.
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);
}
В чистом виде 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
Этот фрагмент написан на 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,2 тыс. из 1237.
Чтобы отформатировать байты, просто разделите их на 1024.
Эта функция по сей день используется в некотором производственном коде.