Re: Spreadsheet::Read not reading CSV data passed as string

Well, no need to pray at line 547 in Spreadsheet::Read .-)
It should be

-            $in = $txt; # Now pray ...
+            open $in, '<', \$txt or return;
[download]

since below follows

        while (my $row = $csv->getline ($in)) {
[download]

which doesn't work on a plain string, but on a file handle.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on Re: Spreadsheet::Read not reading CSV data passed as string Select or Download Code

Replies are listed 'Best First'.
Re^2: Spreadsheet::Read not reading CSV data passed as string by Tux (Canon) on Jul 30, 2017 at 09:12 UTC
That would break `perl -MDP -MSpreadsheet::Read -we'$_="a,b,c\n1,2,3\n";open$a,"<",\$_;DDumper ReadData($a,parser=>"csv",debug=>9)'` Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^3: Spreadsheet::Read not reading CSV data passed as string by shmem (Chancellor) on Jul 30, 2017 at 09:35 UTC
That would break Adding case for a GLOB ref: `else { if ($io_ref) { # GLOB/IO ref $in = $txt; # Now pray ... } else { # just text open $in, "<", \$txt or return; } }` [download] perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply] [d/l]
Re^4: Spreadsheet::Read not reading CSV data passed as string by Tux (Canon) on Jul 30, 2017 at 09:42 UTC
I did something similar. Care to prove I missed something? `$ wget --output-document=Spreadsheet-Read-git.tgz \ 'https://github.com/Tux/Spreadsheet-Read/archive/master.tar +.gz'` [download] Thanks for thinking along :) Enjoy, Have FUN! H.Merijn	[reply] [d/l]