Hi,
I am running into problems with the SVG::TT::Graph::TimeSeries module.
My script is looping through data sets and generating graphs from different
datasets. Every second time I go though the loop, I get an error.
I stripped my script down to this demo code that illustrates the problem:
#!/usr/bin/perl -w
use strict;
use SVG::TT::Graph::TimeSeries;
foreach my $k (1..10) {
print "-> $k\n";
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' => '1000',
'compress' => 0
});
$graph->add_data({
'data' => \...@data_disk,
'title' => "$k"
});
open TTT, ">graph_$k.svg";
print TTT $graph->burn();
close TTT;
}
This is the error I am getting:
./test.pl
-> 1
-> 2
Use of uninitialized value in subroutine entry at
/usr/lib/perl5/XML/Parser/Expat.pm line 474, <DATA> line 513.
no element found at line 1, column 0, byte -1:
17^
8957216
at /usr/lib/perl5/XML/Parser.pm line 187
snep...@xbox:~/Development/NetApp/na_stats$ ./test.pl
-> 1
-> 2
Use of uninitialized value in subroutine entry at
/usr/lib/perl5/XML/Parser/Expat.pm line 474, <DATA> line 513.
no element found at line 1, column 0, byte -1:
14^
7829560
at /usr/lib/perl5/XML/Parser.pm line 187
Anyone any ideas what I'm doing wrong here ?
Note that the first graph gets generated correctly, the second is just
a zero-byte file.
Thanks in advance!
Filip
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
