Anonymous

$doc= ooDocument(file => "./valahol/feltoltott.ods");
	$doc->{'local_encoding'} = "iso-8859-2";
	$doc->{'field_separator'}= ";";
	$rows=$doc->getTableRows(0)-2; #valamiért két sorral többet állapít meg a valósnál
	$normsheet = $doc->normalizeSheet(0, $rows, 10); #soronként tíz oszlopnyi adatot feltételez, vagyis a hiányzó cellákat kiegészíti így: ;;
	$munkalap0= $doc->getTableText(0, $rows, 10); # csak az első munkalapot veszi vigyelembe
	chomp $munkalap0;
	open (FILE, ">./mashol/elmetett.csv");
		print FILE $munkalap0;
	close FILE;