我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意：
my $size_in_mb = (-s $fh) / (1024 * 1024);
我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数？
编辑：更新了不正确的计算.
解决方法
如果您想避免幻数,请尝试使用CPAN模块
Number::Bytes::Human.
use Number::Bytes::Human qw(format_bytes); my $size = format_bytes(-s $file); # 4.5M