#!/usr/bin/perl

use strict;
use warnings;

use OpenOffice::OODoc;

my $file = "export.ods";

my $doc = odfDocument(file => $file) or die $!;

my $lastrow = 0;
my $lastcol = 0;

my $ws = 0; # Das erste Worksheet (kann man auch loopen)

for my $row (0..1048575) {
    $lastrow = $row if $row > $lastrow;
    last unless defined $doc->getCellValue($ws, $row, 0);
    for my $col (0..1023) {
        $lastcol = $col if $col > $lastcol;
        last unless defined $doc->getCellValue($ws, $row, $col);
    }
}

print "Anzahl Zeilen: $lastrow\nAnzahl Spalten: $lastcol";