Hello,
for the following program, what is the function of lines 12 and 14 ???
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use 5.010;
6 use Spreadsheet::XLSX;
7
8 my $excel = Spreadsheet::XLSX -> new ('Datos RCP 4_2_11-v2.xlsx');
9
10 foreach my $sheet (@{$excel -> {Worksheet}}) {
11 printf("Sheet: %s\n", $sheet->{Name});
12 $sheet -> {MaxRow} ||= $sheet -> {MinRow};
13 foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {
14 $sheet -> {MaxCol} ||= $sheet -> {MinCol};
15 foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {
16 my $cell = $sheet -> {Cells} [$row] [$col];
17 if ($cell) {
18 printf("( %s , %s ) => %s\n", $row, $col, $cell
-> {Val});
19 }
20 }
21 }
22 }
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
