Re: Help with Excel::Table

Hello BernieC,

It looks like there’s a mismatch between (1) the regular expression used to separate directory and filename, and (2) the actual input. The regex /(.*)\/(.*)/ splits on a forward slash, but the input contains either a backslash (from the error message) or no slash at all (from the specified input: getWB("D:myexcel.xlsx")).

It’s safer to use the core module File::Basename here:

my ($dir, $excel) = fileparse($_[0]);
[download]

Whether this is your real problem, I don’t know, but at the least it’ll remove one layer of possible confusion as you seek to debug the problem. In that case, the monks will require more information — preferably in the form of an SSCCE — to be able to assist with the debugging process.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Help with Excel::Table Select or Download Code

Replies are listed 'Best First'.

Re^2: Help with Excel::Table
by BernieC (Pilgrim) on Sep 25, 2020 at 20:19 UTC

I neglected to include that this is with Strawberry Perl running on a win10/64 system. Here's the little test program:

#!/usr/bin/perl

use v5.10 ;
use strict;
use warnings ;
use Excel::Table ;

use constant WORKBOOK => "d:/desktop/testWB.xlsx" ;

# test if the path works
open(P, "<", WORKBOOK)
    or die "Can't find the workbook: $!\n" ;
close P ;

my $xs = getWB(WORKBOOK) ;
exit ;

sub getWB
{   my ($dir, $wb) = $_[0] =~ /(.*)\/(.*)/ ;
say "Directory is $dir" ;
say "Excel file is $wb" ;
    my $xs = Excel::Table->new(dir => $dir) ;
    $xs->open($wb)  ;
    return $xs ;
}
[download]

d:\Desktop>testWb.pl
Directory is d:/desktop
Excel file is testWB.xlsx
Log4perl: Seems like no initialization happened. Forgot to call init()
+?
[download]

[reply]
[d/l]
[select]

Re^3: Help with Excel::Table

by Athanasius (Archbishop) on Sep 26, 2020 at 09:10 UTC

Thanks for the SSCCE. As toolic says, the error (really just a warning) message appears to relate to Log::Log4perl; the Excel workbook is being opened correctly.

The example code in the SYNOPSIS section of the documentation for Excel::Table doesn’t seem to work for me. If you have difficulty using this module, you’ll probably be better off directly using Spreadsheet::XLSX — which you already have, since it’s used by Excel::Table!

Cheers,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
[select]

Re^4: Help with Excel::Table

by BernieC (Pilgrim) on Sep 26, 2020 at 11:34 UTC

Thanks for the update. It hadn't occurred to me that the "warning" was nothing, I guess it'd be a bug in Excel::Table -- it isn't calling the log4perl->init {or easy_init()} What attracted me to Excel::Table is that it does exactly what I want: turns workshets into arrays. I'll investigate Spreadsheet::XLSX. Thanks!

[reply]

Re^5: Help with Excel::Table

by Tux (Canon) on Sep 26, 2020 at 12:40 UTC


Problems? Is your data what you think it is?
	PerlMonks