| 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 |
<perl>
if ($cmd eq "add" or $cmd eq "mod")
{
$_put{Betrag} = reverse $_put{Betrag};
$_put{Betrag} =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$_put{Betrag} = reverse $_put{Betrag};
out"$_put{Betrag}<br>";
}
</perl>
|
| Alle Einträge zum Thema: | Zur Liste |
<perl> del "Datum<jetzt-30", "daten"; </perl>
<perl>
if(%_put){
$_put{Name}=$_user;
}
</perl>
>p.s. ich habe keine perl kenntnisse, bin aber lernfähig^^
<perl>
if ($cmd eq "add")
{
$_put{Betrag} = sprintf('%.02f',$_put{Betrag});
$_put{Betrag} =~ tr/./,/;
$_put{Betrag} = reverse $_put{Betrag};
$_put{Betrag} =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$_put{Betrag} = reverse $_put{Betrag};
out"$_put{Betrag}<br>";
}
</perl>
<perl>
if ($cmd eq "add")
{
$_put{Betrag} = reverse $_put{Betrag};
$_put{Betrag} =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$_put{Betrag} = reverse $_put{Betrag};
out"$_put{Betrag}<br>";
}
</perl>
<perl>
if ($cmd eq "add" or $cmd eq "mod")
{
$_put{Betrag} = reverse $_put{Betrag};
$_put{Betrag} =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$_put{Betrag} = reverse $_put{Betrag};
out"$_put{Betrag}<br>";
}
</perl>
out"$_put{Betrag}<br>";
#out"$_put{Betrag}<br>";
$Menge = reverse $Menge;
$Menge =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
$Menge = reverse $Menge;
out("<br />$Menge<br />");
$Menge = sprintf('%.02f',$Menge);
$Menge =~ tr/./,/;
| Liste der Einträge von 8401 bis 8551: | 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 |