perlquestion
vt220
<p>I tried a modified version of the example code given in [http://search.cpan.org/~dmow/Spreadsheet-XLSX-0.13-withoutworldwriteables/lib/Spreadsheet/XLSX.pm]. It works very well and now I am trying to understand it.</p>
<p>I am not sure what these two lines are doing.</p>
<c>
$sheet -> {MaxRow} ||= $sheet -> {MinRow};
$sheet -> {MaxCol} ||= $sheet -> {MinCol};
</c>
<p>My guess is that if <tt>MaxRow</tt> or <tt>MaxCol</tt> are undefined then they are set to equal <tt>MinRow</tt> or <tt>MinCol</tt> respectfully. If that is true then under what circumstances is MAX not defined?</p>
<p>Also, I <tt>Data::Dumper::Simple</tt>'d <tt>$excel</tt> and it appears <tt>MinCol</tt> and <tt>MaxCol</tt> does not vary by row i.e., it is set once for each worksheet. So why execute it on each row? Or did I read the dump incorrectly?</p>
<p>Following is the code I ran:</p>
<c>
use strict;
use warnings;
use Data::Dumper::Simple;
use Spreadsheet::XLSX;
# use Text::Iconv;
# my $converter = Text::Iconv -> new ("utf-8", "windows-1251");
# Text::Iconv is not really required.
# This can be any object with the convert method. Or nothing.
# my $excel = Spreadsheet::XLSX -> new ('test.xlsx', $converter);
my $excel = Spreadsheet::XLSX -> new ($ARGV[0]);
print Dumper($excel);
foreach my $sheet (@{$excel -> {Worksheet}}) {
printf("Sheet: %s\n", $sheet->{Name});
$sheet -> {MaxRow} ||= $sheet -> {MinRow};
foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
$sheet -> {MaxCol} ||= $sheet -> {MinCol};
foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
my $cell = $sheet -> {Cells} [$row] [$col];
if ($cell) {
printf("( %s , %s ) => %s\n", $row, $col, $cell -> {Val});
}
}
}
}
</c>
<p>Thanks in advance!</p>