Flexible Beschriftung

Bisher stand der Schriftzug direkt im Skript. Für einen anderen Text müssten Sie dieses jedes Mal verändern oder den Text als zusätzlichen Parameter übermitteln. Mit einem kleinen Kniff gelingt es aber, den Text aus einer Datei auszulesen. Die Annotate-Methode erlaubt die Angabe eines Dateinamens – in dieser angegebenen Datei legen Sie die Zeile einfach ab. Dazu ändern Sie den Aufruf in Zeile 14 von Listing 4 wie folgt:

$text = '@beschriftung.txt'

Bei jedem Aufruf des Skriptes liest das Magick-Objekt die Datei beschriftung.txt und versieht das Foto mit dem dort gespeicherten Text. Um den Inhalt der Datei festzulegen, genügt ein Texteditor.

Individuelle Beschriftung

Manchmal möchten Sie nicht alle Bilder identisch beschriften, sondern jedes mit einem anderen Text versehen. Dafür müssen Sie aber das Perl-Skript wieder etwas verändern (Listing 5). Sie erstellen zunächst eine Textdatei, in der Sie für jede Abbildung den gewünschten Text hinterlegen. Die Angaben für die jeweilige Datei legen Sie in einer eigenen Zeile ab – zuerst den Name der Bilddatei, danach den Text. Als Trennzeichen fungiert ein Doppelpunkt, gefolgt von einem Leerzeichen:

foto156.png: Berlin, Funkturm am Messegelände
foto159.png: Berlin, Alexanderplatz mit Weltzeituhr
...

Das Perl-Skript aus Listing 5 rufen Sie danach mit dem Namen der Textdatei auf:

$ ./beschriftung.pl bilderliste.txt

Nach den bekannten Anweisungen zu Beginn gilt es, die Datei mit der Bilderliste zu öffnen (Zeile 13) und danach in einer Schleife zeilenweise zu verarbeiten. Jede gelesene Textzeile zerlegt das Skript mit Hilfe eines regulären Ausdrucks und der Funktion split am Trennzeichen : in zwei separate Teile (Zeile 16), die im Array @zeile landen.

Danach gibt das Skript die Werte einmal aus, um Ihnen die Gelegenheit zu geben, diese noch einmal zu kontrollieren. In den folgenden Zeilen operiert das Skript auf der Bilddatei: Es erzeugt das Bildobjekt, liest die Datei ein, beschriftet sie mit der Annotate-Methode, schreibt die geänderte Bilddatei und schließt diese – alles wie gehabt. Zu guter Letzt schließt das Skript die Datei mit der Bilderliste wieder.

Listing 5

#!/usr/bin/perl -w
# beschriftung.pl - Bilder flexibel beschriften
# graphicsmagick-Modul einbinden
use Graphics::Magick;
# Abbrechen, falls keine Parameter übergeben wurden
exit unless @ARGV;
my (@zeile, $dateiname, $bild);
$dateiname = $ARGV[0];
open (DATEILISTE, $dateiname);
while (<DATEILISTE>) {
  @zeile = split(/:\s+/, $_, 2);
  print "Datei: $zeile[0]\n";
  print "Text: $zeile[1]\n";
  $bild = Graphics::Magick->new;
  $bild->Annotate (font=>'font.ttf', pointsize=>40, fill=>'red', text=>$zeile[1], x=>100, y=>100);
  $bild->Write(filename=>$zeile[0]);
}
close (DATEILISTE);

LinuxCommunity kaufen

Einzelne Ausgabe
 
Abonnements
 

Ähnliche Artikel

Kommentare

Infos zur Publikation

LU 07/2015: Daten sichern

Digitale Ausgabe: Preis € 4,95
(inkl. 19% MwSt.)

Mit der Zeitschrift LinuxUser sind Sie als Power-User, Shell-Guru oder Administrator im kleinen Unternehmen monatlich auf dem aktuelle Stand in Sachen Linux und Open Source.

Sie sind sich nicht sicher, ob die Themen Ihnen liegen? Im Probeabo erhalten Sie drei Ausgaben zum reduzierten Preis. Einzelhefte, Abonnements sowie digitale Ausgaben erwerben Sie ganz einfach in unserem Online-Shop.

NEU: DIGITALE AUSGABEN FÜR TABLET & SMARTPHONE

HINWEIS ZU PAYPAL: Die Zahlung ist auch ohne eigenes Paypal-Konto ganz einfach per Kreditkarte oder Lastschrift möglich!       

Tipp der Woche

Grammatikprüfung in LibreOffice nachrüsten
Grammatikprüfung in LibreOffice nachrüsten
Tim Schürmann, 24.04.2015 19:36, 0 Kommentare

LibreOffice kommt zwar mit einer deutschen Rechtschreibprüfung und einem guten Thesaurus, eine Grammatikprüfung fehlt jedoch. In ältere 32-Bit-Versionen ...

Aktuelle Fragen

Fernwartung oder wartung im haus
heide marie voigt, 29.06.2015 10:37, 2 Antworten
gerne hätte ich jemanden in Bremen nord, der mir weiter hilft - angebote bitte mit preis HMVoigt
Druckeranschluss DCP-195C
heide marie voigt, 29.06.2015 10:35, 1 Antworten
installiert ist linux ubuntu 15.04 offenbar auch der treiber für den Drucker DCP-195C. Die Konta...
keine arbeitsleiste beim einloggen
heide marie voigt, 27.06.2015 13:31, 0 Antworten
seit der neu-installierung von linux ubuntu 15.04 erscheint die arbeitsleiste rechts oben erst na...
raid platte an linux mint 17.1
andreas schug, 23.06.2015 19:44, 1 Antworten
folgende thematik NAS Iomega Storage Center wird auf einmal nicht mehr im netzwerk erkannt .....
SUSE 13.2 - Probleme mit kmail
kris kelvin, 03.06.2015 13:26, 2 Antworten
Hallo, nach dem Umstieg auf 13.1 hatte ich das Problem, daß kmail extrem langsam reagierte. Nun...