Как нарисовать при помощи Perl круговую диаграмму?
Знатоки Perl, напишите, как, используя модуль Chart (или другой какой-нибудь), нарисовать круговую диаграмму. И как вывести ее на браузер.
Никогда не испытывал в этом необходимости, но всегда держу в дистрибах GD. Попробуй эту либу, сначала была GD.PM, но это уже морально устаревшая либа, поищи в нете, весьма популярная штука, рисует довольно хорошо, правда обработка изображения в ней довольно фиговая, но это только по слухам в паутине.
print "Content-Type: image/jpeg\n\n";
use GD::Graph::pie;
@LABEL = ("label1","label2","label3");
@VALUE = (10,76,14);
@data = (
\@LABEL,
\@VALUE
);
my $my_graph = GD::Graph::pie->new(150, 100);
$my_graph->set( dclrs => [ qw(green pink orange white) ] );
my $gd = $my_graph->plot(\@data) or die $my_graph->error;
print $gd->jpeg(200);
use GD::Graph::pie;
@LABEL = ("label1","label2","label3");
@VALUE = (10,76,14);
@data = (
\@LABEL,
\@VALUE
);
my $my_graph = GD::Graph::pie->new(150, 100);
$my_graph->set( dclrs => [ qw(green pink orange white) ] );
my $gd = $my_graph->plot(\@data) or die $my_graph->error;
print $gd->jpeg(200);