Debuginfo

思考とアウトプット

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