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
*