如何从现有的图像对象(而不是使用PerlMagick的文件路径)中“读取”？

Question

下面的代码使用100x100块作为源映像生成300x100映像：

for (my $i = 0; $i < 3; $i++) {
    $image->Read("filepath/100x100.png");
}

$result = $image->Montage(geometry=>'100x100',tile=>'3x1');

如何在只从磁盘读取一次时达到相同的结果？

Answer 1

从文档中可以看出这一点，但是可以将无性系添加到图像序列中，如下所示：

$image->Read("filepath/100x100.png");
$image->[1] = $image->[0]->Clone();
$image->[2] = $image->[0]->Clone();

$result = $image->Montage(geometry=>'100x100',tile=>'3x1');