使用Perl如何获取文件大小(以兆字节为单位)？

发布时间：2020-12-15 21:11:28 所属栏目：大数据来源：网络整理

导读：我想以磁盘的形式获取磁盘上的文件大小.使用-s运算符给出了以字节为单位的大小,但是我将假设,然后将其除以魔术数字是一个坏主意： my $size_in_mb = (-s $fh) / (1024 * 1024); 我应该使用只读变量来定义1024,还是有一种编程方式来获取一千字节的字节数？编

我想以磁盘的形式获取磁盘上的文件大小.使用-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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!