如何在 Perl 中获取图象文件的尺寸和文件大小

2025-05-07 02:43:40
推荐回答(1个)
回答1:

获取文件大小不需要安装额外的模块,用-s操作符即可:
假设文件路径在变量$file_path中,那么$file_size文件大小可以用如下语句获得:
$file_size = -s $file_path;
得到的结果单位为Byte(字节),如果要换算成KB,则将结果除1024,如果要换算成MB,则再除1024,以此类推。
要获取图片的尺寸,可以用模块 Image::Size
use Image::Size;
my ($globe_x, $globe_y) = imgsize($file_path);