用perl中的MB替换M.

Question

我有一个perl脚本，显示了linux机器的总存储空间。

例如print $ total_storage

输出为28G，477M

我希望输出为：28GB，477MB。

建议？

Answer 1

没有更详细的信息，以及您的输入和输出：

my $line = "28G,477M";

$line =~ s/([TGMk])/$1B/g;
print $line;