Perl Number :: Bytes :: Human

Question

我正在使用此代码将字节转换为更易读的格式，例如155K，1.5M，1.5G，但无法从CPAN的解释中弄清楚如何将转换后的值打印到小数点后的第二位并进行舍入。 感谢。

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

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

Answer 1

我可以使用Number::Format控制小数位数：

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

Number::Bytes::Human确实有round选项，但我没有看到设置精度的选项。