perl - Perl Image::Magick:将一个图像放置在另一个图像的顶部

我有两个图像(第一个图像很大，第二个图像很小且透明)。我需要在第一张图片的中心添加第二张图片，并将结果另存为新文件。

如何使用Perl Image::Magick做到这一点？

最佳答案

use strict;
use warnings;
use Image::Magick;

my $big = Image::Magick->new;
$big->Read(filename => 'big.png');

my $little = Image::Magick->new;
$little->Read(filename => 'little.png');

$big->Composite(image => $little, qw(compose SrcAtop  gravity Center));

$big->Write(filename => 'out.png');