in reply to Re: Re: Re: GD-Graph for ActivePerl
in thread GD-Graph for ActivePerl

Thanks, BroserUK!

I downloaded GD.ppd, GDGraph.ppd and GDTextUtil.ppd and installed the respected modules through the normal PPM. Have I installed all the required modules to do graphs?

  • Comment on Re: Re: Re: Re: GD-Graph for ActivePerl

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: GD-Graph for ActivePerl
by BrowserUk (Patriarch) on Jan 17, 2004 at 07:21 UTC

    Yes. Save this to a script.pl and run it and you it should produce a file 'file.png'. Look at that in your browser or image viewer.

    #! perl -slw use strict; use GD; use GD::Graph::bars; my @data = ( ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"], [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4], [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ] ); my $graph = GD::Graph::bars->new(400, 300); $graph->set( x_label => 'X Label', y_label => 'Y label', title => 'Some simple graph', y_max_value => 8, y_tick_number => 8, y_label_skip => 2 ) or die $graph->error; my $gd = $graph->plot(\@data) or die $graph->error; open(IMG, '>file.png') or die $!; binmode IMG; print IMG $gd->png;

    Examine what is said, not who speaks.
    "Efficiency is intelligent laziness." -David Dunham
    "Think for yourself!" - Abigail
    Timing (and a little luck) are everything!

      Thanks, BrowserUk!

      My biggest hurdle was knowing what to install and where to get them. The site you pointed me to got rid of that hurdle.

      I ran your code and everything is working fine :)

      Cheers and thanks once again!