perl - Perl Image::Magic Watermark 错误

Question

我正在尝试使用 Image::Magic 为图像添加水印，机器人我不断收到此错误

Can't call method "Read" on an undefined value at ImageUploader.pl line xxx.

女巫是：

$Logo->Read('../Data/Images/Watermark.png');

在下面的代码中，无法弄清楚路径是否正确并且文件存在。

有任何想法吗？

use Image::Magick;

my $NewImage = Image::Magick->new;
$NewImage->Read("../Data/Temp/Images/$SaveAs$Extension");

my ($Width,$Height) = $NewImage->Get('width','height'); # find dimensions

my $ResizedWidth = 275;
my $ResizedHeight = 450;

my $MeduimThumbnailWidth = 300;
my $MeduimThumbnailHeight = 300;


if($Height >= $ResizedHeight){
my $ResizedHeight = int($Height * ($ResizedWidth / $Width));

$Logo->Read('../Data/Images/Watermark.png');
$NewImage->Composite(compose=>'blend', blend=>'50x50', x=>'50', y=>'50', image=>$Logo,);

$NewImage->Resize(width=>$ResizedWidth, height=>$ResizedHeight);
$NewImage->Write("../Data/Images/$URL/$SaveAs\_lrg$Extension");
}else{
$NewImage->Write("../Data/Images/$URL/$SaveAs\_lrg$Extension");
}

Answer 1

$Logo是未定义的，因为您从未为其赋值。

大概你错过了：

my $Logo = Image::Magick->new();

您还缺少：

use strict;
use warnings;

… 它应该出现在所有现代 Perl 程序中。