Perl Number :: Bytes :: Human - PullRequest
       2

Perl Number :: Bytes :: Human

2 голосов
/ 25 июня 2011

Я использую этот код для преобразования байтов в более читаемый формат, например, 155K, 1,5M, 1,5G, но не могу понять из объяснения на CPAN, как преобразованные значения должны быть напечатаны во вторую цифру после десятичной точки и округлены. Спасибо.

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

my $bytes = format_bytes(-s $file);

1 Ответ

5 голосов
/ 25 июня 2011

Я могу контролировать количество десятичных знаков, используя Number :: Format :

use Number::Format qw(format_bytes);
print format_bytes(-s $file, precision => 2);

Number :: Bytes :: Human имеет *Опция 1008 *, но я не вижу опции для установки точности.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...