linux - 在 Perl 中将内存大小(人类可读)转换为实际数字(字节)

Question

CPAN 中是否有实际的包来转换这样的字符串:

my $string = "54.4M"
my $string2 = "3.2G"

以字节为单位的实际数字:

54,400,000
3,200,000,000

反之亦然。

原则上我最后要做的是求和所有内存大小。

Answer 1

要获得您要求的精确输出，请使用Number::FormatEng和 Number::Format :

use strict;
use warnings;

use Number::FormatEng qw(:all);
use Number::Format qw(:subs);

my $string = "54.4M" ;
my $string2 = "3.2G" ;

print format_number(unformat_pref($string))  , "\n";
print format_number(unformat_pref($string2)) , "\n";

__END__
54,400,000
3,200,000,000             

顺便说一句，如果您要对结果进行计算，则只需要 unformat_pref。

自 Number::FormatEng用于工程符号转换(不用于字节)，其前缀区分大小写。如果要将它用于千字节，则必须使用小写 k。

Number::Format会将这些字符串转换为实际字节(有点，差不多)。

use Number::Format qw(:subs);

my $string = "54.4M" ;
my $string2 = "3.2G" ;

print round(unformat_number($string) , 0), "\n";
print round(unformat_number($string2), 0), "\n";

__END__
57042534
3435973837

我说“有点，差不多”的原因是 Number::Format 将 1K 视为等于 1024 字节，而不是 1000 字节。这可能就是为什么它会给出一个看起来很奇怪的结果(带有小数字节)，除非它是四舍五入的。