Tausendertrennzeichen in Perl - #79955 (Allgemeines zu Perl)

Strat

2004-02-08 23:52

User since
2003-08-04
5246 Artikel
ModeratorIn

oder bei integerzahlen ohne das 1 while (muesste schneller sein):

Code: (dl )

1
2
3

$zahl =~ s/(\d{1,3})
  (?=  (?:\d\d\d)+  (?!\d)  )
/$1\./gx;

wenn es keine integer sind, sondern auch mit nachkomma, oder Minuszeichen:

Code: (dl )

1
2
3

$zahl =~ s/\G((?:^-)?\d{1,3})
  (?=    (?:\d\d\d)+  (?!\d)   )
/$1\./gx;

(nicht getestet)

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