GD::Graph

NAME

GD::Graph

DESCRIPTION

GDライブラリを用いてグラフ画像を生成。

SYNOPSYS

use strict;
use warnings;

use GD::Graph::lines;

my @data = (
    [ 0..9 ],
    [ map { int(rand(9)) } (0..9) ],
    [ map { int(rand(9)) } (0..9) ],
);  

my $graph = GD::Graph::lines->new(400,300);

my $gd = $graph->plot(\@data) or die $graph->error;

open my $IMG, '>', 'graph.png' or die $!;
print $IMG $gd->png;
close $IMG;

MEMO

Perlで画像処理をあまりする機会がなかったので試しに。GD系のライブラリにはもっと高機能なのがありそうだな。