tausenderpunkt in zahl einfügen - #56869 (Allgemeines zu Perl)

Strat

2005-08-01 15:19

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=Taulmarill,01.08.2005, 13:07]ähm, also entweder hab ich mich hier komplett verhauen, oder die regexe von strat und crian funktionieren nicht (richtig),[/quote]
wenn du ihn so verwenden wuerdest, wie ich ihn angegeben habe, wuerde er funktionieren. habe ich oben

Code: (dl )

$zahl =~ s/(\d+)(\d{3})/$1.$2/;

oder

Code: (dl )

1 while $zahl =~ s/(\d+)(\d{3})/$1.$2/;

geschrieben?
das funktioniert fuer alles vor dem komma; wenn du auch noch nachkommastellen haben willst, wuerde ich sowas wie das folgende verwenden:

Code: (dl )

1
2

1 while ($zahl =~ s/^([+-]?\d+)(\d\d\d)/$1.$2/); # vor komma
1 while ($zahl =~ s/(\d\d\d)(\d+)$/$1.$2/); # nachkomma

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/