#!/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