Tausendertrennzeichen - #177043 (Allgemeines zu Perl)

linuxCowboy

2014-08-29 18:42

User since
2014-01-29
30 Artikel
BenutzerIn
[default_avatar]

Ich hätte gern einstellige Tausender ohne Trennzeichen:

Code (sh): (dl )

# bash
x=$(for i in {1..7} {6..1};do echo -n "`seq -s '' $i` ";done)

echo $x
1 12 123 1234 12345 123456 1234567 123456 12345 1234 123 12 1

ich erhalte:

Code (perl): (dl )

1
2

echo  $x | perl -pe 's/(?<=\d)(?=(\d\d\d)+\b)/./ while(/\d{5,}/)'
1 12 123 1.234 12.345 123.456 1.234.567 123.456 12.345 1234 123 12 1

ich hätte gern:

Code: (dl )

1
2

1 12 123 1234 12.345 123.456 1.234.567 123.456 12.345 1234 123 12 1
         ^^