Perl Image :: Magick：將圖像放在其他圖像的頂部

Question

我有兩個圖像（第一個是大的，第二個是小的，透明的）。我需要在第一個圖像的中心添加第二個圖像，並將結果保存爲新文件。如何使用Perl Image::Magick？

Answer 1

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