Hi
Can I ask a quick question?
My perl version is 5.8.3
I couldn't find Spreadsheet::XLSX from ppm3
I search online. It seems that my version is too old to support this
module. Is it correct?
If so, is there other ways to parse *xlsm* file using perl v5.8.3
Thank you very much
-Tiffany
On Mon, May 28, 2012 at 12:57 AM, Ken Furff <frazzmata...@gmail.com> wrote:
> ok
> I used this code to try to get the columns 2,3,4,5.
>
> my @indexes = (2 .. (2+4-1));
> my @dcells =
> @{$sheet->{Cells}[$row]}[@indexes];
>
> foreach (@dcells) {
> print $_;
> }
>
> but when I try to print the cell values to the screen so I can see that
> its giving me what I need. it prints this stuff:
>
> Spreadsheet::ParseExcel::Cell=HASH(0x70be710)Spreadsheet::ParseExcel::Cell=HASH(0x70be758)Spreadsheet::ParseExcel::Cell=HASH(0x70be710)Spreadsheet::ParseExcel::Cell=HASH(0x70be758)
>
> how do I access the actual data in the cell as opposed to this stuff?
>
> Thanks
> Ken
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
>
> On Thursday, May 24, 2012 8:41:36 AM UTC-7, Ken Furff wrote:
> > I am using the spreadsheet::xlsx module in a script im writing. I need
> to extract about 4 columns out of about 60. I need those specific columns
> for comparison and updating. I assume that I'll load the data into an array
> or an array of arrays for comparison. I am able to extract the contents of
> the file, but I cant figure out how to specify just those columns... I'll
> put the code i currently have below
> >
> > use Spreadsheet::XLSX;
> >
> > $excel = Spreadsheet::XLSX -> new ('build.xlsx');
> > foreach my $sheet (@{$excel -> {Worksheet}}) {
> >
> > printf("Sheet: %s\n", $sheet->{Name});
> > $sheet -> {MaxRow} ||=$sheet -> {MinRow};
> >
> > foreach $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
> >
> > $sheet -> {MaxCol} ||= $sheet -> {MinCol};
> >
> > foreach $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
> >
> > $cell = $sheet -> {Cells} [$row] [$col];
> >
> > if ($cell) {
> > open FILE, ">>buildop.txt" or die $!;
> > printf FILE ("(%s , %s) => %s\n", $row, $col, $cell -> {Val});
> > close FILE;
> > }
> > }
> > }
> > }
> >
> > this just prints the results to a file so I could examine it and try to
> figure out how to get just those columns
> > help
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
