siehe <b><a href="http://baseportal.de/cgi-bin/baseportal.pl?show=/iqws/LOGIN/TemplateAdr">Code</a></b>
<hr>

<perl>
####################################
@array=("eins","zwei","drei");
%hash=(1,"eins",2,"zwei",3,"drei");
####################################
$bild="<img src='http://baseportal.de/pics/logo/basep.gif' align=left>";
get "Id==*","TemplateAdr";
########################## ne Vorlage aus ner Datei holen

$text =$template;        
$text1=$template;
$text2=$template;
#####################################
$Subroutine1 = \&Zufallswert;
$Zufallswert = &{$Subroutine1}();

sub Zufallswert {
 return int(rand(1000) + 1);
}
</perl>



<do action=all db=Adressen range^=0,1 localparams=+">





<perl>
####### Werte über sprintf einlesen und Werte durch Inhalte ersetzen ####
$text =~ s//sprintf("sprintf(\"$&\")")/gimee;
$text1=~ s/\$(\w+)/$$1/ge;
$text2=~ s/\$([a-z_]\w+)/$$1/gie;
###############################################################################
out "<hr><p><i>Ausgabe des Variableninhalts \$text</i> mit sprintf!!!</p>";
out $text; ##### Vorlage mit Feldinhalten anzeigen - that's all
out "<hr><p><i>Ausgabe des Variableninhalts \$text</i> mit <code>s/\\\$(\\w+)/\$\$1/ge </code></p>";
out $text1; ##### CB
out "<hr><p><i>Ausgabe des Variableninhalts \$text</i> mit <code>s/\\\$([a-z_]\\w+)/\$\$1/gie</code></p>";
out $text2; ##### CB
</perl>

<hr>
So sieht die Datei für das Template aus.
<do action=all db=TemplateAdr localparams=+ >