[TIPS][WEB][GRAPHIC] use GD::Graph to draw a graphic chart

ulmer

This demo how to use CPAN module GD::Graph
Step by step:
1. install CPAN module:
cpan>install GD::Graph
2. read doc with perldoc
>perldoc GD::Graph
3.try this demo:
filename: chart_demo.cgi

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use GD::Graph::lines;
   
5. 
   
6. my  $data = [
   
7.     ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
   
8.     [1, 2, 5, 6, 3, 1.5, 1, 3, 4],
   
9.     [ sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4) ]
   
10. ];
    
11. # create chart
    
12. my $graph = GD::Graph::lines->new(400, 300);
    
13. # Set the graph options.
    
14. $graph->set(
    
15.     x_label => 'X Label',
    
16.     y_label => 'Y label',
    
17.     title => 'Demo GD::Graph::lines',
    
18.     y_max_value => 8,
    
19.     y_tick_number => 8,
    
20.     y_label_skip  => 2,
    
21.     line_types =>[1, 2], # 1: solid, 2: dashed, 3: dotted, 4: dot-dashed.
    
22. ) or die $graph->error;
    
23. 
    
24. # print to browser
    
25. my $format = $graph->export_format;
    
26. print "Content-type: image/$format\n\n";
    
27. binmode STDOUT;
    
28. print $graph->plot($data)->$format;
    

复制代码

4. save this file chart_demo.cgi under the path of YOUR_WEBSERVER_CGI_BIN/
and  chmod +x chart_demo.cgi.
5. point your web browser to http://your.web.host/cgi-bin/chart.demo.cgi
6. you will see the chart.

Just 4 Fun,
    ulmer

[ 本帖最后由 ulmer 于 2006-7-28 21:10 编辑 ]

vio

preserving!
thanks.