如何使用 PerlMagick 从现有图像对象而不是文件路径"read"？

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');