Thanks Shlomi, I will try to persuade again others to update to new
version. Your security and End-of-lifed points are quite good. (I wanted to
use newer version but they said others might not have the newest one. In
order to be compatible with everyone, they don't recommand me to update to
new version.)
Thanks Jose, converting to csv files is exactly what I have been done so
far. :-)
-Tiffany
On Wed, May 30, 2012 at 3:07 PM, jbiskofski <jbiskof...@gmail.com> wrote:
> Hey I can see that people are helping you and you are on your way to
> having your problem solved.
>
> Spreadsheet::XSLX is an awesome module, but sometimes its easier to
> convert the file to CSV using excel and then its just text and its a lot
> easier to manipulate.
>
> - Jose from Mexico
>
> On Wed, May 30, 2012 at 3:53 PM, Yu-Shan Wang <ysw2...@gmail.com> wrote:
>
>> 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/
>> >
>> >
>> >
>>
>
>
