要使用Perl获取文件大小(以兆字节为单位),您可以使用以下代码:
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "example.txt";
my $size_in_mb;
if (-e $filename) {
my $size_in_bytes = -s $filename;
$size_in_mb = $size_in_bytes / (1024 * 1024);
printf("文件大小:%.2f MB\n", $size_in_mb);
} else {
print "文件不存在\n";
}
这段代码首先检查文件是否存在,然后使用-s
操作符获取文件大小(以字节为单位)。接下来,将文件大小除以1024 * 1024
,将其转换为兆字节。最后,使用printf
函数将结果格式化并打印出来。
Elastic 中国开发者大会
Elastic 中国开发者大会
云+社区技术沙龙第33期
云+社区技术沙龙[第6期]
小程序·云开发官方直播课(数据库方向)
云+社区技术沙龙[第21期]
云+社区技术沙龙[第10期]
云+社区开发者大会 武汉站
腾讯云培训认证中心开放日
云+社区技术沙龙 [第30期]
领取专属 10元无门槛券
手把手带您无忧上云