将MB转换为TB perl

Question

  

可能重复：
  How do I get the size of a file in megabytes using Perl?

我尝试了一些方法在perl中将MB转换为TB，但是在perl输出和在线转换器中值不匹配。

什么是转换上述内容的最佳公式。

Answer 1

如果你不想要小数点后的任何数字，你可以向右移20位：

perl -e 'print 202220394 >> 20;'

给出192。而202 220 394兆字节= 192.852396太字节。

如果你想要小数，除以2 ^ 20：

perl -e 'print 202220394 / (1 << 20);'

给出192.852396011353。