SNMP编程

开发平台：

C/C++

sample52.pl：源码内容

							use GIFgraph::lines;
print STDERR "Processing sample 5-2n";
# The reverse is in here, because I thought the falling line was 
# depressing, but I was too lazy to retype the data set
@data = ( 
    [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep ) ],
    [ reverse(4, 3, 5, 6, 3,  1.5, -1, -3, -4)]
);
$my_graph = new GIFgraph::lines();
$my_graph->set( 
	x_label => 'Month',
	y_label => 'Measure of success',
	title => 'A Simple Line Graph',
	y_max_value => 8,
	y_min_value => -6,
	y_tick_number => 14,
	y_label_skip => 2,
	box_axis => 0,
	line_width => 3,
	zero_axis_only => 1,
	x_label_position => 1,
	y_label_position => 1,
);
$my_graph->plot_to_gif( "sample52.gif", @data );
exit;

						