Just a small example of memory leak
#!/usr/bin/perl
use strict;
use Chart::Clicker;
use Chart::Clicker::Context;
use Chart::Clicker::Data::Range;
use Chart::Clicker::Renderer::Bubble;
use Chart::Clicker::Data::DataSet;
use Chart::Clicker::Data::Series::Size;
print "run 'top' in linux and look in perl process!\n";
my $j = 100000000;
for (my $i =1;$i < $j;$i+=1){
print "$i iteration\n";
mysub($i);
}
sub mysub{
my ($var_i) = @_;
my @k = (1,2,3);
my $cc = Chart::Clicker->new(width => 800, height => 400 , format
+=> 'png', padding => 10);
my $series = Chart::Clicker::Data::Series::Size->new(
keys => \@k,
values => \@k,
sizes => \@k,
name => "$var_i",
);
my $ds = Chart::Clicker::Data::DataSet->new(
series => [ $series ]
);
$cc->add_to_datasets($ds);
my $defctx = $cc->get_context('default');
$defctx->renderer(Chart::Clicker::Renderer::Bubble->new);
$cc->write_output($var_i);
#undef $cc;
print "\tmemory leak after 'cc->write_output'\n";
}
I can't find any solution and need quick help. I don't want to use any other perl chart lib. But I think I have no choice. :(
With pleasure
BorisPlus |