getting problem to free an array values..

sandipgd has asked for the wisdom of the Perl Monks concerning the following question:

In the below code, I parse the data from file for every directory using subroutine and stored it in an array. But every time, it appends the value of an array for every iteration. I want to remove values once the iteration is completed and data is placed on graph. I tried to free an array element, but still getting the same problem? is there any other way to solve the problems? any helps will be appreciated...

 
if (opendir(DIR, $dir)){
find (\&process, $dir);

foreach my $val (sort { $a <=> $b} @sortarray){
        @values= split(/\t/, $val);
    push(@finalresult, [Math::BigFloat->new($values[1]),Math::BigFloat
+->new($values[2])] );
    
}

my $dataSet = Chart::Gnuplot::DataSet->new(
        points => \@finalresult,
    style => "linespoints",
    title => "points"
    );

$chart->plot2d($dataSet);

}else{print "Directory not found:$dir\n";}
@finalresult = ();
@values = ();
@sortarray = ();
}
[download]

Comment on getting problem to free an array values.. Download Code

Replies are listed 'Best First'.
Re: getting problem to free an array values.. by graff (Chancellor) on Jul 11, 2009 at 01:27 UTC
Have you tried it like this: `my $dataSet = Chart::Gnuplot::DataSet->new( points => [ @finalresult ], ### pass a ref to anonymous array, n +ot ref to global array style => "linespoints", title => "points" );` [download] When you do that, does it work better? (updated comment in code to clarify)	[reply] [d/l]