PerlでGDを使って画像を合成する方法
まずはイントール。
cpanm GDをしたらGDライブラリがないと怒られたので,yumでイントールします。
# yum install gd-devel.x86_64
develを入れるとgdも入るみたい。
で,目的のcpanm。
$ cpanm GD --> Working on GD Fetching http://search.cpan.org/CPAN/authors/id/L/LD/LDS/GD-2.46.tar.gz ... OK Configuring GD-2.46 ... OK Building and testing GD-2.46 ... OK Successfully installed GD-2.46 1 distribution installed
さんぷるスクリプト : http://rhythm-prism.blogspot.jp/2010/12/perlgd.html
上記を参考にすると(というよりコピー。。)
use strict; use warnings; use GD; my $dir = 'images'; my $width = 192; my $height= 53; my $image = new GD::Image($width, $height); #my $i3 = new GD::Image("$dir/layer3.gif"); #$image->copy($i3, 0, 0, 0, 0, $width, $height); my $i2 = new GD::Image("$dir/layer2.gif"); my $i1 = new GD::Image("$dir/layer1.gif"); $i2->copy($i1, 0, 0, 0, 0, $width, $height); $image->copy($i2, 0, 0, 0, 0, $width, $height); open(OUT, ">$dir/mix.gif"); binmode OUT; print OUT $image->gif; close(OUT);