bars.t

mrtg 监控,请认真阅读您的文件包然后写出其具体功能

use lib './t';
use strict;
use GIFgraph::bars;

$::WRITE = 0;
require 'ff.pl';

my @data = ( 
	["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
	[    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
	[    3,    7,    8,    2,    4,  1.5,    2,     5,     1]
);

my @opts = (
	{},
	{
		'x_label' 		=> 'X2 Label',
		'y_label' 		=> 'Y2 label',
		'title' 		=> 'A Double axis Bar Chart',
		'y_max_value' 	=> 20,
		'y_tick_number'	=> 5,
		'y_label_skip' 	=> 2,
		'logo'			=> 't/logo.gif',
		'logo_resize'	=> 0.5,
		'logo_position'	=> 'UR',
		't_margin'		=> 20,
		'r_margin'		=> 20,
		'l_margin'		=> 20,
		'b_margin'		=> 20,
		'long_ticks'	=> 1,
		'x_ticks'		=> 1,
		'two_axes'		=> 1,
		'axis_space'	=> 8,
	},
	{
		'x_label' 		=> 'X Label',
		'y_label' 		=> 'Y label',
		'title' 		=> 'A Simple Bar Chart',
		'y_max_value' 	=> 8,
		'y_tick_number' => 8,
		'y_label_skip' 	=> 2,
		'transparent'	=> 1,
		'interlaced'	=> 1,
		'bgclr'			=> 'blue',
		'fgclr'			=> 'lyellow',
		'textclr'		=> 'lred',
		'labelclr'		=> 'lblue',
		'axislabelclr'	=> 'lgreen',
		'accentclr'		=> 'lgray',
	},
);

print "1..2\n";
($::WARN) && warn "\n";

foreach my $i (1..2)
{
	my $fn = 't/bars' . $i . '.gif';

	my $checkImage = get_test_data($fn);
	my $opts = $opts[$i];

	my $g = new GIFgraph::bars( );
	$g->set( %$opts );
	my $Image = $g->plot( \@data );

	print (($checkImage eq $Image ? "ok" : "not ok"). " $i\n");
	($::WARN) && warn (($checkImage eq $Image ? "ok" : "not ok"). " $i\n");

	write_file($fn, $Image) if ($::WRITE);
}