Differences between version 4 and predecessor to the previous major change of Excel2CSV.
Other diffs: Previous Revision, Previous Author, or view the Annotated Edit History
Newer page: | version 4 | Last edited on Tuesday, May 11, 2004 10:33:38 pm | by AristotlePagaltzis | Revert |
Older page: | version 3 | Last edited on Saturday, February 21, 2004 7:06:08 am | by AristotlePagaltzis | Revert |
@@ -74,8 +74,12 @@
Drew Broadley, with contributions from Aristotle Pagaltzis
=head1 COPYRIGHT
+
+FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME
+
+Drew Broadley has not clarified the copyright on this code.
FIXME FIXME FIXME FIXME FIXME FIXME FIXME FIXME
=cut
@@ -94,9 +98,8 @@
'S|sep=s' => \(my $opt_separator = ';'),
'v|verbose' => \(my $opt_verbose),
) or pod2usage();
-#1.1 Normal Excel97
my $excel = Spreadsheet::ParseExcel->new();
for (@ARGV) {
my $book = $excel->Parse($_);
@@ -117,11 +120,10 @@
my @row = $worksheet->{MinRow} .. $worksheet->{MaxRow};
my @col = $worksheet->{MinCol} .. $worksheet->{MaxCol};
for my $row ( @{ $worksheet->{Cells} }[ @row ] ) {
- print $fh join $opt_sep
, @$row[ @col ];
+ print $fh join $opt_separator, map $_->Value()
, @$row[ @col ];
print $fh "\n";
}
-
}
}
</verbatim>