Sie können auch in der loop-Anweisung
Perl-Code verwenden:
Definition:
<loop
code=perl[Parameter]> ... </loop> |
Beispiel:
<b>Alles in Gross...</b><p>
<loop code=perl>
out "Nummer: ",++$cnt,"<br>";
out "Name: ",uc($Name),"<br>";
out "Strasse: ",uc($Strasse),"<br>";
out "Ort: ",uc($Ort),"<p>";
</loop>
|
Für jeden Eintrag der Datenbank wird der angegebene Perl-Code
ausgeführt. Die Inhalte der Felder sind über die Variablen mit dem
entsprechenden Feldnamen erreichbar. Ausserdem nutzen wir eine
Zählvariable ($cnt), die zu Beginn jedes Eintrags die fortlaufende
Nummer ausgibt. Die Perl-Funktion uc() wandelt alle Buchstaben in
Grossbuchstaben um.
Hier eine mögliche Ausgabe:
Alles in Gross...
Nummer: 1
Name: AXEL HUBER
Strasse: WALDWEG 5
Ort: GRUBING
Nummer: 2
Name: GABI BAUMANN
Strasse: KLINGELGASSE 12
Ort: FREIBERG
Nummer: 3
Name: HANS HELFIG
Strasse: VIOLASTRASSE 3
Ort: BINGEN
|
|
|