fig21_05.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 44 行

#!/usr/bin/perl
# Fig 21.5: fig21_05.pl
# Using the Chart module.

use strict;
use warnings;
use Chart::Lines;

my $line = new Chart::Lines();
my $file = "fig21_06.png";
my @labels = ( "first", "second" );
my %colors = ( "dataset0" => [ 100, 100, 255 ], 
   "dataset1" => [ 255, 100, 100 ],
   "background" => [ 150, 235, 200 ] );

$line->set( "title" => "Test Chart", "x_label" => "letter" );
$line->set( "y_label" => "number", "legend" => "left" );
$line->set( "legend_labels" => \@labels, "colors" => \%colors );
$line->set( "grey_background" => 0 );

my @Xlabels = ( 'a', 'b', 'c', 'd' );
my @dataset1 = ( 1, 2, 3, 4 );
my @dataset2 = ( 2, 3, 5, 9 );

my @data = ( \@Xlabels, \@dataset1, \@dataset2 );

$line->png( $file, \@data );

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################