| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<loop ... code=perl>
</loop>
out "<table...";
| Alle Einträge zum Thema: | Zur Liste |
<html>
<loop db=erfassung_conen sort=PreisEuro>
$PreisEuro <br>
</loop>
<perl>
format_currency($PreisEuro);
out format_currency($PreisEuro);
sub format_currency {
my ($val, $currency, $amount) = @_;
$amount = 1 if (!$amount); # Standartmenge 1
$val =~ tr/,//d; # Kommas weg da evtl. engl. Format
$val = sprintf "%0.2f", $val*$amount; # Endsumme mit 2 Nachkommastellen
$val =~ tr/\./\,/; # Dezimalkomma
return "$val $currency"; } </perl> </loop> </html>
<loop db=... sort=... code=perl>
</loop>
<html><head><title></title> </head><body bgcolor="#ffffff"> <br><ul> <font face="arial,helvetica" size=2> <font face="Arial" size =2><a href="http://www.auto-conen.de/Gebrauchte/gebrauchte.html">ZURÜCK</a><p>
<loop db=erfassung_conen sort=Hersteller code=perl> <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0> <TR VALIGN=TOP ALIGN=LEFT> <TD WIDTH=600> <TABLE ID="Tabelle2" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=600><TR> <TD WIDTH=131><P><B><FONT FACE="Arial,Helvetica,Univers,Zurich BT">$Hersteller</FONT></B></TD> <TD WIDTH=132><P><B><FONT FACE="Arial,Helvetica,Univers,Zurich BT">$Modell</FONT></B></TD> <TD WIDTH=135><P><B><FONT FACE="Arial,Helvetica,Univers,Zurich BT">$PreisEuro ,--</FONT></B></TD> <TD WIDTH=72><P ALIGN=RIGHT><a href=http://www.dataserer.netpure.de/cgi-bin/baseportal.pl?htx=/dataserver/ausgabe_detail&Id_Nummer==$Id_Nummer>$Id_Nummer</a> <FONT FACE="Arial,Helvetica,Univers,Zurich BT"> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </loop> </table> </body></html>
<loop ... code=perl>
</loop>
out "<table...";
out "<html-tags>";
<loop ,,,code=perl> out <<EOF;
EOF
<perl> out "<TD WIDTH=135><P><B><FONT FACE="Arial,Helvetica,Univers,Zurich BT">$PreisEuro ,--</FONT></B></TD>; </perl> wird das "out" statement mit herausgeschrieben. die eigentliche formatierung für die ausgabe
out format_currency($PreisEuro);
sub format_currency {
my ($val, $currency, $amount) = @_;
$val =~ tr/\./\,/; # Dezimalkomma
1 while $val =~ s/^(-?\d+)(\d{3})/$1.$2/; # Punkte in 3er Schritten
return "$val $currency";
}
<perl> out "<b>"; out "Das kommt Fett an"; out "</b>"; </perl>
<perl> out<<EOF <b>
EOF </perl>
out<<EOF
EOF
<perl> out "<a href=\"meineseite.htm\">Hier klicken</a>"; </perl>
<perl>
sub format_currency
{
my ($val, $currency, $amount) = @_;
$val =~ tr/,//d; # Kommas weg da evtl. engl. Format
$val = sprintf "%0.2f", $val*$amount; # Endsumme mit 2 Nachkommastellen
$val =~ tr/\./\,/; # Dezimalkomma
1 while $val =~ s/^(-?\d+)(\d{3})/$1.$2/; # Punkte in 3er Schritten
return "$val $currency";
</perl>
out format_currency($PreisEuro)."<br>"; </loop>
| Liste der Einträge von 45300 bis 45450: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |