GDモジュールのインストール

• 事前に必要なもの
  • PerlのCPANモジュール
  • Cコンパイラ

• GD開発パッケージのインストール方法

$ su 
# wget http://www.boutell.com/gd/http/gd-2.0.22.tar.gz
# tar xzvf gd-2.0.22.tar.gz
# cd gd-2.0.22
# ./configure
# make install

コレで開発環境は整いました。Perlで絵が描けます☆

• サンプル
  • sample.cgi

#!/usr/bin/perl -w

use strict;
use GD;
use CGI;

my $cgi = new CGI;
print $cgi->header( -type    => 'image/png',
                    -charset => 'euc-jp' );

# 新しいイメージを作成
my $im = new GD::Image(100,100);

# いくつかの色を確保
my $white = $im->colorAllocate(255,255,255);
my $black = $im->colorAllocate(0,0,0);       
my $red = $im->colorAllocate(255,0,0);      
my $blue = $im->colorAllocate(0,0,255);

# 背景色を透明にし、インターレース化
$im->transparent($white);
$im->interlaced('true');

# 絵の周りを黒く縁取り
$im->rectangle(0,0,99,99,$black);

# 青い楕円形を描画
$im->arc(50,50,95,75,0,360,$blue);

# 赤で塗りつぶし
$im->fill(50,50,$red);

# バイナリ・ストリームへ書きこむことを確実にする
binmode STDOUT;

# イメージをPNGに変換し、標準出力に出力
print $im->png;

表示：http://127.0.0.1/cgi-bin/sample.cgi