Craig Moynes wrote:
> Hi All,
> I am using the spreadsheet::parseexcel module to open up a series (31)
> spreadsheets and grab the row counts.
>
> Here is an excerpt with the ParseExcel Code.
>
> my $oBook;
> my $oWks;
> foreach $hashEntry ( @LOGS )
> {
>
> my ( $localfile) = $hashEntry->{name};
> my ( $err_msg ) = ""; # error message
> variable
>
>
> my $cmd = "";
>
> #
> # Get row count of each file, to generate results file
> #
> $oBook = new
> Spreadsheet::ParseExcel::Workbook->Parse($localfile); my
> ($iR, $iC, $oWkS, $oWkC); $oWkS = ${$oBook->{Worksheet}}[0];
>
> print "------ SHEET: ".$oWkS->{Name}. "\n";
> print "Row: ".$oWkS->{MinRow}." v ".$oWkS->{MaxRow}."\n";
>
> $resultMessage.=basename($localfile).",".$oWkS->{MaxRow}."\n"; }
>
> The problem I am running into is after 10 files (in testing all 31
> files are the same source file with different names), and then I get
> an out of memory error. Anyone have any idea how I can clean out the
> memory. I have a feeling it might be some autocaching or something
> not getting cleaned up within ParseExcel.
>
No where do I see you closing or destroying the existing data
structure. I was working on similiar item and only wanted the first row and
last column, but it was loading the whole file in. Forunately one of the Perl
gurus provided a work around, but to get the last row of each Excel file will
require the loading of the whole file, unless some guru has a work around that
cheats loading the whole file.
Wags ;)
> Cheers,
> Craig
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
