Perl – Platzhalter in Textstrings ersetzen
Dieses Codebeispiel zeigt wie man in Textstrings, die mit speziellen Platzhaltern durchsetzt sind, Werte aus dem Script einfügen kann.
Codebeispiel mit Erläuterungen
Ausgangssituation:
Es gibt in der Datenbank oder einer Sprachdatei im Textformat abgelegte Texttausgaben. Nun kann es aber sein, das man in diese Textausgaben vom Script generierte Daten einfügen möchte. Hierzu sind zunächst Platzhalter in den Textstring einzufügen, Siehe Beispiel:
$platzhaltertxt = 'Das ist <%1%> aus <%2%> in <%4%>. <%2%> ist eine Stadt im <%3%>.';
Diese Platzhalter sollen nun mit diesen Werten gefüllt werden, diese könnten hier z.B. aus einer Mitgliederdatenbank stammen und als Profilausgabe genutzt werden.
Helmut, Brand-Erbisdorf, Erzgebirge, Sachsen
Wie aus dem Plathaltertext ersichtlich gibt es hier zweimal den Platzhalter mit der Nr. 2 aber nur 4 Werte die an die function zum parsen der Textstrings übergeben werden. Um die Werte später voneinander zu trennen sind diese im Subroutinenaufruf mit einem Trennzeichen | verbunden.
Der Subroutinenaufruf:
print insert_text_vars($platzhaltertxt, "Helmut|Brand-Erbisdorf|Erzgebirge|Sachsen");
In der Subroutine selbst prüft man nun zuerst ob überhaupt Platzhalterdaten übergeben wurden. Wenn ja, in Array zerlegen mittels split und die Anzahl an Arrayelementen ermitteln.
my $anzahl = 0;
if ($ersatz ne '') {
@insert = split(/\|/, $ersatz);
unshift(@insert, '');
$anzahl = @insert;
}
Wurde eine Anzahl > 0 festgestellt wird der eigentliche Parserblock aufgerufen. Dieser ersetzt hier die Zahlen des Platzhalters mit dem passenden Arrayelement.
if ($anzahl > 0) {
$text =~ s/<%([0-9])%>/$insert[$1]/sg;
}
über
return $text;
erhält man nun die Ausgabe:
„Das ist Helmut aus Brand Erbisdorf in Sachsen. Brand-Erbisdorf ist eine Stadt im Erzgebirge.“
Hier das komplette Script:
#!/usr/bin/perl
#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
use strict;
print "Content-type: text/html\n\n";
my $platzhaltertxt = 'Das ist <%1%> aus <%2%> in <%4%>. <%2%> ist eine Stadt im <%3%>.';
print insert_text_vars($platzhaltertxt, "Helmut|Brand-Erbisdorf|Erzgebirge|Sachsen");
sub insert_text_vars {
my $text = shift || '';
my $ersatz = shift || '';
my (@insert);
my $anzahl = 0;
if ($ersatz ne '') {
@insert = split(/\|/, $ersatz);
unshift(@insert, '');
$anzahl = @insert;
}
if ($anzahl > 0) {
$text =~ s/<%([0-9])%>/$insert[$1]/sg;
}
return $text;
}
Hier das selbe Script noch einmal, aber als PHP Version
Weitere Beiträge
Amazon Oster-Angebote – erste Angebote sind verfügbar
Amazon Oster-Angebote: Ostern steht vor der Tür. Eine gute Gelegenheit, um die Wohnung oder den Arbeitsplatz bunter zu gestalten. Auch der Frühjahrsputz steht vor der Tür. Die Amazon Osterangebote vom 20. bis 25. März bieten attraktive Rabatte auf Elektronik, Haus & Garten, Spielwaren und mehr. Schneller Versand inklusive! Die ersten Angebote sind bereits verfügbar – […]
Das neue MacBook Air 2024 mit M3 Chip bei Amazon
MacBook Air 2024. Apple präsentierte überraschend die neuen MacBook Air Modelle mit dem leistungsstarken M3 Chip. Neben der besseren Hardware, die deutlich schneller ist als die Rechner der Konkurrenz, wurde vor allem die Tatsache begrüßt, dass das Macbook endlich mit zwei externen Monitoren funktioniert. Erfreulich ist, dass die neuen MacBooks bereits bei Amazon bestellt werden […]
Last Minute Angebote von Amazon
Wer noch auf der Suche nach dem passenden Weihnachtsgeschenk ist, ist bei den Last-Minute-Angeboten von Amazon genau richtig. Egal, ob Sie noch nicht wissen, was Sie schenken sollen, oder einfach ein Schnäppchen machen wollen – bei den Last-Minute-Angeboten werden Sie garantiert fündig.
Amazon Black Friday Woche startet
Auch in diesem Jahr präsentiert Amazon während der Black Friday Woche wieder erstklassige Schnäppchen in allen Kategorien. Kundinnen und Kunden können sich auf einzigartige Geschenkideen und interessante Angebote für die bevorstehende Weihnachtszeit freuen. Darüber hinaus gibt es eine Vielzahl weiterer Produkte mit attraktiven Preisnachlässen – und das elf Tage lang. Ab Freitag, den 17. November […]
Keine Kommentare vorhanden