hi
Hallo zusammen,
mit der Anweisung
if ($gFormCtrl{"ebit_2"} =~ /\D/) {....}
du köntest da mal probiern:
$tz = ","; # trennzeichen
($zahl =~ /^(\d*|\d{1,3}($tz\d{3})*)$/) ? print "$zahl ok\n" : die "wrong number $zahl";
lg, lois
hi
Hallo zusammen,
mit der Anweisung
if ($gFormCtrl{"ebit_2"} =~ /\D/) {....}
du köntest da mal probiern:
$tz = ","; # trennzeichen
($zahl =~ /^(\d*|\d{1,3}($tz\d{3})*)$/) ? print "$zahl ok\n" : die "wrong number $zahl";
lg, lois