Code: Select all
use Spreadsheet::Read;
my $ref = ReadData($ods_file,parser => "ods");
if ($ref){
for my $row qw(A B C D E F G H I J K L M N O P/ / ){
for my $cell (map{"$row$_"} 1 .. 30){
print $ref->[1]{$cell} . "\n";
}
}
}
to pull info out of OOorg calc (*.ods) files.
The script has suddenly stopped working.
It returns a ref to a hash which exists, but is empty.
This only happens with *.ods files that have been made
since I upgraded to OpenOffice.org 3.1.0 000310m11(Build:9399)
All *.ods files made by the new OOorg are unparseable.
And if I open an old, parseable *.ods file in OOorg,
and save it under a new name, it too is unparseable.
The new version seem to have the same <text:p> elements
as the original.
But the values "ce9" etc in
Code: Select all
<table:table-cell table:style-name="ce9" office:value-type="string">
Code: Select all
<table:table-row table:style-name="ro5">
Does anyone have a fix?
I have also tried
Code: Select all
use OpenOffice::OODoc;
No joy
Thanks in advance
RCH