Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Unicode path with Spreadsheet::XLSX

by huck (Parson)
on Mar 18, 2018 at 02:18 UTC ( #1211172=note: print w/replies, xml ) Need Help??


in reply to Unicode path with Spreadsheet::XLSX

At http://cpansearch.perl.org/src/MIKEB/Spreadsheet-XLSX-0.15/lib/Spreadsheet/XLSX.pm i find

sub __load_zip { my ($filename) = @_; my $zip = Archive::Zip->new(); if (ref $filename) { $zip->readFromFileHandle($filename) == Archive::Zip::AZ_OK or +die("Cannot open data as Zip archive"); } else { $zip->read($filename) == Archive::Zip::AZ_OK or die("Cannot op +en $filename as Zip archive"); } return $zip; }
which seems to suggest that you can pass a open filehandle instead of a path to new. You may want to open the file yourself and pass the filehandle instead of the path. something like
open (my $MYfh,'<',$MYpath) or die "cant open $MYPath @!"; my $excel = Spreadsheet::XLSX -> new ($MYfh);
Or including info from http://search.cpan.org/~rboisvert/Win32-LongPath-1.03/lib/Win32/LongPath.pm
my $MYfh; openL (\$MYfh, '<:encoding(UTF-8)', $MYPath) or die ("unable to open $file ($^E)"); my $excel = Spreadsheet::XLSX -> new ($MYfh);
Just an UNTESTED thought

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1211172]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2021-04-11 13:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?