baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
$_put{Preis}=~s/,/./; # damit wird das erste komma in einen punkt
# soviel wie ersetzen.
# egal was da nun in der variablen drin steht, das sprinf "%.2f" macht # daraus auf jeden fall einen zahlen wert mit zwei stellen nach dem punkt. # d.h. auch wenn nix in der variablen drinn steht, macht das sprintf "%.2f" # daraus 0.00 # auch wenn da keine zahl sondern irgendwas anderes drin steht, macht das # sprintf "%.2f" daraus 0.00
</perl>
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000> -Preis<br>" if $_put{"Preis<"}=~s/,/./; dann wer $err.= erst dann aus geführt, wenn der substitutionsoperator auch was ersetzt hat. ersetzt er nix, dann war auch kein komma vorhanden. wenn er aber aus dem komma einen punkt gemacht hat, liegt ja eigentlich kein fehler mehr vor auch wenn der user was "falsches" eingegeben hat. wenn du nur auf ein komma testen wolltest, hätte auch die funktion "$err.="..." if ($_put{Preis}=/,/);" gereicht ;-).
if ($_put{Preis}==0){$_put{Preis}=1E+10;}
Alle Einträge zum Thema: | Zur Liste |
<input type=text name="Preis<=" size=8>
$_put{"preis<"}=~s/,/./;
$_put{"preis<"}=sprinf "%.2f",$_put{"preis<"};
<input type=text name="Preis<=" size=8>
<perl>
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000> -Preis<br>" if $_put{"Preis<"}=~s/,/./;
if ($err ne "") { out "<b><font face=verdana,arial,helvetica size=2 color=#FF0000>Folgende Felder wurden nicht ausgefüllt:</b> <br>$err"; } } if ($err ne ""){ undef %_put; } </perl>
<perl>
$_put{Preis}=~s/,/./; # damit wird das erste komma in einen punkt
# soviel wie ersetzen.
# egal was da nun in der variablen drin steht, das sprinf "%.2f" macht # daraus auf jeden fall einen zahlen wert mit zwei stellen nach dem punkt. # d.h. auch wenn nix in der variablen drinn steht, macht das sprintf "%.2f" # daraus 0.00 # auch wenn da keine zahl sondern irgendwas anderes drin steht, macht das # sprintf "%.2f" daraus 0.00
</perl>
$err.="<font face=verdana,arial,helvetica size=2 color=#FF0000> -Preis<br>" if $_put{"Preis<"}=~s/,/./; dann wer $err.= erst dann aus geführt, wenn der substitutionsoperator auch was ersetzt hat. ersetzt er nix, dann war auch kein komma vorhanden. wenn er aber aus dem komma einen punkt gemacht hat, liegt ja eigentlich kein fehler mehr vor auch wenn der user was "falsches" eingegeben hat. wenn du nur auf ein komma testen wolltest, hätte auch die funktion "$err.="..." if ($_put{Preis}=/,/);" gereicht ;-).
if ($_put{Preis}==0){$_put{Preis}=1E+10;}
<perl>
unless ( $_put{preis}=~/[^\d,.]/ ){ #teste ob nur eine zahl eingegeben worden ist. $_put{Preis}=~s/,/./; $_put{Preis}=sprinf "%.2f",$_put{Preis}; if ($_put{Preis}==0){$_put{Preis}=1E+10;} } </perl>
@CB
Liste der Einträge von 33901 bis 34051: | 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 |