A simple script for ODF files
Problem: have a set of ODT files (tech transfer contracts) that I need to update, but not just now, because they contain a stale proprietary notice that needs to be changed. Perhaps I will never update them all, but only a few. So I prefer to put a notice in each of them to say “hey, you haven’t updated notice X yet”. They are hundreds in tens of folders and subfolders.
Solution: Luckily they are ODF files, ODF is a zipped XML, a PERL module exists to do incredible tricks.
I have then made this basic script, just tweaking the example provided:
<pre>
#/bin/perl! #filename to be passed as an argument use OpenOffice::OODoc;
get global access to the content of an ODF file
my $document = odfDocument(file => $ARGV[0] );
select a text element containing a given string
my $place = $document->getParagraph(0);
insert a new text element before the selected one
my $newparagraph = $document->insertParagraph ( $place, position=> 'before', text => 'A COOL new paragraph to be inserted at the beginning of the file', style => 'Text body' );
save the modified document
$document->save;
I know it is slightly less than a hack, but do that with a MS Word document.
Installing the module is pretty straightforward, it only requires an additional module to manage zip files, as dependancy, on my Ubuntu 10.10 standard PERL installation.
Many Thanks to Ingolf Schaefer (@ovidius@identi.ca) for the hints. Also Giuseppe Maxia pointed in the right direction.
Canali:
<a href="/taxonomy/term/35">Normazione</a>
<a href="/taxonomy/term/37">Interoperabilità</a>
Tipo di Entry:
<a href="/taxonomy/term/30">Varie</a>