Perl GD图像大小（以字节为单位）

Question

如何使用GD模块获取我创建的图像大小？ 示例代码：

$newImage->copy($sourceImg,0,0,0,0,$width,$height);
open(IMG,">$outputImgName") || die "can't open $outputImgName";
binmode IMG;
print IMG $newImage->png;
close IMG;  

我需要＆＃34; newImage＆＃34;的大小，我正在保存。

Answer 1

由于您要将文件写入磁盘，只需使用-s文件操作符：

my $size = -s $outputImgName;
print "Size is $size\n";