Try something like this. I just tried it on 60+ files and it seems to
work. (If you have multiple worksheets you may need to modify the
cell_handler to exclude the ones you don't want)
use Spreadsheet::ParseExcel;
use File::Basename;
use strict;
my $resultMessage = '';
my $maxrow = 0;
my $oBook;
Ok perlers, It was actually fairly easy.
I added a delete just before the end of the for loop.
delete $oBook->{Worksheet};
Not sure how the references work internally in Perl. I guess that
when oBook is assigned a new Spreadsheet the previous Spreadsheet is
not getting cleaned up.
Cheers,
On
Hi Gents,
I tried both suggestions:
#
# For each log in the array
# - grab the directory and name of the file.
# - send via sendmail
#
foreach $hashEntry ( @LOGS )
{
my ( $localfile)= $hashEntry->{name};
my ( $err_msg ) = ""; # error messag
> my $oBook;
> my $oWks;
> foreach $hashEntry ( @LOGS )
> {
>
> my ( $localfile)= $hashEntry->{name};
> my ( $err_msg ) = ""; # error message
> variable
>
>
> my $cmd = "";
>
> #
> # Get row count of each fi
On 4/26/05, Craig Moynes <[EMAIL PROTECTED]> 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 )
> {
>
>
On 4/26/05, Wagner, David --- Senior Programmer Analyst --- WGO
<[EMAIL PROTECTED]> wrote:
> 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.
> >
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)= $ha
