1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use SVG::TT::Graph::TimeSeries;
my @data_cpu = ('2003-09-03 09:30:00',23,'2003-09-03 09:45:00',54,'2003-09-03 10:00:00',67,'2003-09-03 10:15:00',12);
my @data_disk = ('2003-09-03 09:00:00',12,'2003-09-03 10:00:00',26,'2003-09-03 11:00:00',23);
my $graph = SVG::TT::Graph::TimeSeries->new({
'height' => '500',
'width' => '300',
'compress' => 0,
});
$graph->add_data({
'data' => \@data_cpu,
'title' => 'CPU',
});
$graph->add_data({
'data' => \@data_disk,
'title' => 'Disk',
});
#print "Content-type: image/svg+xml\r\n\r\n";
print $graph->burn();
|
