Tausendertrennzeichen (Allgemeines zu Perl)

[thread]19258[/thread]

Tausendertrennzeichen

Tags: perl5 regex Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
linuxCowboy

2014-08-29 18:42
User since
2014-01-29
30 Artikel
BenutzerIn
Ich hätte gern einstellige Tausender ohne Trennzeichen:
Code (sh): (dl )

1 2 3 4 5

# 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 ^^
- +3 replies
- GwenDragon
  
  2014-08-30 15:07
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Musst du das unbedingt mit diesem Regex und Ersetzung lösen? Oder geht's auch anders?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - linuxCowboy
    
    2014-08-30 15:52
    User since
    2014-01-29
    30 Artikel
    BenutzerIn
    
    Ich nutze diesen genialen Einzeiler als Shellalias. Mich stört dass er Jahreszahlen auch anfasst.
    
    Code (sh): (dl )
    
    echo $x|perl -nE'while(/\d{5,}/){$b=$`;$m=$&;$a=$'\'';$m=~s/(?<=\d)(?=(\d\d\d)+\b)/./;$_="$b$m$a"}print'
    
    ...störte
    Last edited: 2014-08-30 15:58:47 +0200 (CEST)
    - linuxCowboy
      
      2014-08-30 16:10
      
      User since
      2014-01-29
      30 Artikel
      BenutzerIn
      
      ...Jahreszahlen!
      
      Code (sh): (dl )
      
      1 2 3
      
      echo 1970 2014 3000 20000 | perl -ne 'while(/\d{5,}|[3-9]\d{3}/) {$b=$`; $m=$&; $a=$'\''; $m=~s/(?<=\d)(?=(\d\d\d)+\b)/./; $_="$b$m$a"}; print' 1970 2014 3.000 20.000

View all threads created 2014-08-29 18:42.