#!/usr/bin/perl

$| = 1;

use strict;
use warnings;

use OpenOffice::OODoc;

Lese_Datei('./OO.ods');

sub Lese_Datei {
     my($datei) = @_;
     print "      Bearbeite '$datei' ...\n";
     my $doc = odfDocument(file => $datei);
     # alle Arbeitsblätter bearbeiten
     for (my $i=0; $i<$doc->getTableList();$i++) {
          my $tbl = $doc->getTable($i);
          print "         Name des Arbeitblattes: ".$doc->tableName($tbl)."\n";
          for (my $zeile=0; $zeile<20; $zeile++) {
               my $found = 0; 
               for (my $spalte=0; $spalte<20;$spalte++) {
                    my $v = $doc->getCellValue($tbl, $zeile, $spalte);
                    $v = '' if !defined($v);
                    print "$v;";
                    $found++;
                } # for
                print "\n" if $found;
          } # for
     } # for
} # Lese_Datei

<table:table-row table:style-name="ro1">
<table:table-cell table:number-columns-repeated="2" office:value-type="string"><text:p>Auto</text:p></table:table-cell>
<table:table-cell office:value-type="float" office:value="1"><text:p>1</text:p></table:table-cell>
</table:table-row>

$doc->normalizeSheet($tbl, 'full');