Linux-Magazin In Zockerhänden (Vorschau)

Perl-Snapshot 05/2011
Programmieren
www.linux-magazin.de
103
Abbildung 1: Laser-taugliche Etiketten, 30 pro Blatt, 4200 pro Karton. Der
einzelne Aufkleber ist billig und dabei praktisch.
Abbildung 2: Im Open Office Writer öffnet der Labels-Eintrag aus dem »Datei |
Neu«-Menü eine reiche Auswahl von Aufkleber-Formaten.
So zeigt sich in Abbildung 5, dass im
Dokument unter dem Tag »office:body«
ein Tag namens »office:text« hängt, das
nach einigen Sequence-Deklarationen
wiederum einen Textabsatz vom Typ
»text:p« (Paragraph) enthält. Dieser
stellt sich als eine Tabellenzeile mit drei
Spalten heraus, für deren Rahmen jeweils
Elemente vom Typ »draw:frame«
verantwortlich zeichnen, die wiederum
ein »draw:text-box«-Element mit einem
»text:p«-Element mitbringen, in denen
sich endlich die eingegebenen Test-Texte
(»test1«, …) wiederfinden.
Somit fördert ein Xpath-Query vom Format
//office:body/office:text/text:p
alle Tabellenzeilen zutage (die ihrerseits
wieder Spaltenrahmen enthalten),
während sich die Tabellenelemente (drei
in jeder Zeile) relativ dazu unter ».../
draw:frame/drawtext-box/text:p« finden.
Das Skript in Listing 2 bedient sich des
ersten Xpath-Query, um zunächst das
Dokument um so viele Tabellenzeilen zu
erweitern, wie nötig sind, damit alle auszudruckenden
Adressdaten darin Platz
finden. Mit dem zweiten Query stöbert
es durch alle Labels und stopft jeweils die
dafür bestimmten Textdaten hinein.
Zum Öffnen der ODT-Datei bedient es
sich wieder des Konstruktors »ooDocument()«,
der auf die Datei »ready.odt«
zugreift, die ihrerseits zuvor die Funktion
»cp« aus dem Modul Sysadm::Install in
Zeile 21 aus dem Template »template.odt«
erzeugt hat.
Die gegenwärtige Version von OpenOffice::OODoc
weist einen Bug auf, der sie
UTF-8-kodierte Daten inkorrekt verarbeiten
lässt, falls diese Umlaute enthalten.
Abbildung 3: Der User tippt Beispieltexte in die Tabellenfelder des Open-Office-Dokuments ein.
Die gewählte Einstellung »local_encoding
=>»"""« behebt das Problem vorläufig,
sollte aber eigentlich auf den Wert »utf8«
gesetzt sein.
Adressbuch einpflegen
Die Rohdaten legt der User in der Datei
»address-book.csv« (Abbildung 6)
ab, von wo sie das Skript aus Listing
2 mit dem CPAN-Modul Text::CSV_XS
zeilenweise mit »getline()« ausliest. Die
ab Zeile 60 definierte Funktion »addresses_scan«
öffnet dazu die Datei mit dem
Pragma »:encoding(utf8)«, damit Perl
dort stehende und in UTF-8 kodierte Umlaute
auch korrekt einliest und gleichzeitig
intern in den dafür vorgesehenen
Datenstrukturen das UTF-8-Flag setzt. E
Listing 1: »oo-dumper«
01 #!/usr/local/bin/perl ‐w
02 use strict;
03 use OpenOffice::OODoc;
04
05 (my $file) = @ARGV;
06
07 die "usage: $0 file" unless defined $file;
08
09 my $doc = ooDocument(
10 file => $file,
11 member => "content",
12 );
13
14 (my $element) = $doc‐>selectElements(
15 '//office:body');
16
17 print $element‐>_dump();