首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

要使用Perl获取文件大小(以兆字节为单位),您可以使用以下代码:

代码语言: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函数将结果格式化并打印出来。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券