#!/usr/bin/perl
use GD::Graph::bars;

@A = qw(-5 -4 -3 -2 -1 0 1 2 3 4 5 );
@B = qw(-6 -4 -2 0 2 4 6);
@C = qw(1 2 3 4 5);
@D = qw(4 5 6 7);
@E = qw(-2 -4 -6 0 2 4 6 8);

@datacolors = qw(blue green cyan pink yellow);

my @data = ([@A],[@B],[@C],[@D],[@E]);
my $graph = GD::Graph::bars->new(600,400);

$graph->set(
    transparent => '0',
    x_label     => 'A',
    y_label     => 'B',
    title       => 'A for B',
    dclrs => [ @datacolors ]
 
);
open(IMG, ">$0.png");
binmode IMG;
my $gd =  $graph->plot(\@data);
print IMG $gd->png;
close IMG;
[download]

Thank you! I'll try to use that snippet as a grounding for my own code. Thing is that I'm not really sure of what kind of data should the graphical representation contain, because when I start to play around with the idea so many different possibilities come to mind. But then again, that's for me to decide and tinker with :)

Yeah, sleep on it for a few days, it saves rewrites later when you realize there is a better way. But then again, you often don't see the need for a better way, until you jump into the code and start hacking.

---

I'm not really a human, but I play one on earth Remember How Lucky You Are

-sam

True, but no SVG output.

I looked at Google Charts a while ago and while the results are some of the more attractive out there and the API is really nice to use. I'm just not comfortable handing off all the internal data I would like to graph to Google.

Maybe one day they will release the renderer that we could run locally, until then its really something that pretty, but not useful.

Maybe rrdtool is something you could use. (This was my first idea, as I read your message.)

There are also some Modules available at CPAN for using rrd.

If you decide to use rrdtool, make certain to check out Alex van den Bogaerdt's tutorials.

RRDtool does not quite work the way people expect and these explanations do a good job of preparing you to expect the data you will get out of it. I've just recently been through this.

G. Wade

Personally, I really like gnuplot. There are other ideas in the nodes below.

• Pixel-based Plotting in Perl?
• Line Graph Image Manipulation
• Really slick Charts and Graphs
• Portable simple line graph module?
• Charting Modules
• Professional, "a-la-OpenOffice", 3D graphs
• develop animation and graphics
• creating graphs
• (YA) Q: re "which graphics module?"
• How to print/draw a network graph
• Real time data graphs.

I'm also looking at SVG for a project of mine (An SVG Case Study: Integrated, Dynamic Avalanche Forecasting has some nice examples).

dont forget plot

with above script, was testing module and facing error saying "sh: convert: command not found". Please help me .

used script for test

use Chart::Gnuplot::Pie;

    # Create the pie chart object
    my $chart = Chart::Gnuplot::Pie->new(
        output => "pie.png",
        title  => "Sample Pie");

    # Data set
    my $dataSet = Chart::Gnuplot::Pie::DataSet->new(
        data => [
            ['Item 1', 7500],
            ['Item 2', 3500],
            ['Item 3', 2000],
            ['Item 4', 4500],
        ],

    );

    # Plot a 2D pie chart
    $chart->plot2d($dataSet);
[download]