在perl中用MB替换M

Posted 2023-03-07

【中文标题】在perl中用MB替换M

【英文标题】：Replace M with MB in perl

【发布时间】：2015-07-03 08:52:12

【问题描述】：

我有一个显示 linux 机器总存储量的 perl 脚本。

例如打印 $total_storage

输出是28G,477M

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

建议？

【参考方案1】：

没有更多细节你在做什么以及你的输入和输出：

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

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