Select Code to Download

Select or download this
```
my $book = ReadData ($content);
```

perl -Mstrict -MData::Dumper -MSpreadsheet::Read -wE 'my $data=ReadDat
+a("A,B,C\na,b,c",parser=>"csv",debug=>9); say Dumper $data'
$Options = {
...
Can't locate object method "getline" via package "A,B,C
a,b,c" (perhaps you forgot to load "A,B,C
a,b,c"?) at /Users/nick/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl
+/5.22.0/Spreadsheet/Read.pm line 517.

Select or download this

perl -Mstrict -MData::Dumper -MSpreadsheet::Read -wE 'my $data=ReadDat
+a("A,B,C\na,b,c",debug=>9); say Dumper $data'
$Options = {
...
             'clip' => 1
           };
$VAR1 = undef;

Select or download this

$ cat SR.pl
use strict; use warnings; use feature 'say';
...
__DATA__
A,B,C
a,b,c

Select or download this

perl SR.pl
$Options = {
...
           };
Unsuccessful stat on filename containing newline at /Users/nick/perl5/
+perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/Spreadsheet/Read.pm l
+ine 849, <DATA> line 1.
$VAR1 = undef;

Select or download this

$ perl -MIO::Scalar -E 'say $IO::Scalar::VERSION'
2.111