commute_pie3d.cgi

嵌入式ＷＥＢ

#!/usr/bin/perl -wT

use strict;
use CGI;
use GD::Graph::pie3d;

use constant TITLE => "Morning Commute Time: 3D Pie Chart";

my $q     = new CGI;
my $graph = new GD::Graph::pie3d( 300, 300 );
my @data  = (
    [ qw( Mon  Tue  Wed  Thu  Fri ) ],
    [      33,  24,  23,  19,  21   ],
);


$graph->set( 
    title           => TITLE,
);

my $gd_image = $graph->plot( \@data );

print $q->header( -type => "image/png", -expires => "-1d" );

binmode STDOUT;
print $gd_image->png;