Zahl formatieren (gelöst) (Allgemeines zu Perl)

[thread]17978[/thread]

Zahl formatieren [gelöst]

Tags: perl5 printf Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+18 replies
bianca

2012-12-11 14:49

User since
2009-09-13
7016 Artikel
BenutzerIn

Hallo!

Mit welchem sprintf() bekomme ich denn einen nummerischen Wert in das Format x,xx formatiert?
Beispiele: 1234.56 wird zu 1234,56 (ohne Tausendertrennpunkt!)
5 wird zu 5,00
3.4 wird zu 3,40
usw.?
Danke
10 print "Hallo"
20 goto 10
- +8 replies
- pq
  
  2012-12-11 14:56
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  %.2f
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +7 replies
  - bianca
    
    2012-12-11 15:00
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    sprintf('%.2f',1) bringt bei mir 1.00, ich möchte aber 1,00 haben. Geht das in einem oder muss ich noch ein Regex drauf schicken?
    10 print "Hallo"
    20 goto 10
    - +6 replies
    - pq
      
      2012-12-11 15:02
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      achso, das komma habe ich übersehen.
      nimm am besten Number::Format. angeblich soll das auch mit sprintf und POSIX::setlocale() gehn, aber tut es hier nicht.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +5 replies
      - bianca
        
        2012-12-11 15:10
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-12-11T14:02:32 pq
        achso, das komma habe ich übersehen.
        nimm am besten Number::Format. angeblich soll das auch mit sprintf und POSIX::setlocale() gehn, aber tut es hier nicht.
        
        Trotz dieses Risikos? Wäre sprintf mit Regex nicht einfacher und schneller?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2012-12-11 15:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        was für ein risiko? Number::Format ist doch kein risiko?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        bianca
        
        2012-12-11 15:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-12-11T14:14:50 pq
        was für ein risiko?
        
        Der Heckmeck mit dem Locale. Ich will kein Risiko haben, dass was falsches raus kommt. Ist sehr wichtig, dass kein Fehler passiert.
        Ich lasse es mit Regex. Sind keine Massen.
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2012-12-11 15:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        häh? Number::Format ist doch gerade dafür da, dass du dich damit nicht rumschlagen musst. du gibst genau an, was du haben willst und das kriegst du. da ist doch kein risiko.
        aber vermutlich wieder das übliche "kein modul"...
        
        Code (perl): (dl )
        
        1 2 3
        
        use Number::Format; my $f = Number::Format->new(DECIMAL_POINT => ","); say $f->format_number($num, 2, 2);
        
        Last edited: 2012-12-11 15:50:57 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2012-12-11 15:54
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-12-11T14:48:24 pq
        häh? Number::Format ist doch gerade dafür da, dass du dich damit nicht rumschlagen musst.
        
        Hatte deinen Beitrag msg #164114 nicht richtig gelesen. Dachte, das bezög sich auf das Modul. Aber es bezieht sich auf sprintf.
        War ein Missverständnis. Aber ein Modul ist mir dafür trotzdem zuviel, du hast Recht :)
        Trotzdem danke für die Hilfe.
        10 print "Hallo"
        20 goto 10
- +9 replies
- renee
  
  2012-12-11 15:10
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code: (dl )
  
  perl -MPOSIX=LC_NUMERIC,setlocale -E 'setlocale LC_NUMERIC,""; printf "%.2f", 1.00'
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +4 replies
  - pq
    
    2012-12-11 15:14
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    hm, und ich hatte setlocale(LC_ALL, "de") versucht (wahlweise LC_NUMERIC).
    wieso geht das nur mit dem leerstring?
    und das ist ja dann immer abhängig vom in der shell eingestellten locale.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +3 replies
    - Linuxer
      
      2012-12-11 15:18
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Versuch doch mal "de_DE" ;)
      Damit klappte es bei mir.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +2 replies
      - pq
        
        2012-12-11 15:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hab ich alles schon probiert...
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        $ perl -MPOSIX=LC_NUMERIC,setlocale -E 'setlocale LC_NUMERIC,"de_DE"; printf "%.2f\n", 1' 1.00 $ perl -MPOSIX=LC_NUMERIC,setlocale -E 'setlocale LC_NUMERIC,"de"; printf "%.2f\n", 1' 1.00 $ perl -MPOSIX=LC_NUMERIC,setlocale -E 'setlocale LC_NUMERIC,""; printf "%.2f\n", 1' 1,00
        
        Last edited: 2012-12-11 15:22:20 +0100 (CET)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Linuxer
        
        2012-12-11 15:40
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Schade.
        Nur der erste (mit de_DE) erzeugt bei mir eine 1,00, die anderen zwei die "klassische" 1.00.
        
        Code: (dl )
        
        1 2
        
        perl -MPOSIX=LC_NUMERIC,setlocale -E 'setlocale LC_NUMERIC,"de_DE"; printf "%.2f\n", 1' 1,00
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +4 replies
  - Muffi
    
    2012-12-11 15:27
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use locale; use POSIX qw(setlocale LC_NUMERIC); setlocale(LC_NUMERIC, ""); printf("%.2f", 1);
    
    Code: (dl )
    
    1.00
    
    Windows 7 [EDIT] 64 bit
    This is perl, v5.10.0 built for MSWin32-x86-multi-thread
    Last edited: 2012-12-11 15:48:45 +0100 (CET)
    1 + 1 = 10
    - pq
      
      2012-12-11 15:39
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      interessant. da es anscheinend keinen allgemeingültigen weg gibt, empfehle ich nach wie vor Number::Format.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +2 replies
    - Linuxer
      
      2012-12-11 15:43
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Code: (dl )
      
      1 2
      
      perl -Mlocale -MPOSIX=LC_NUMERIC,setlocale -wle "setlocale(LC_NUMERIC,''); printf qq~%.2f\n~, 1;" 1,00
      
      WinXP 32bit, perl 5.12.1
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - pq
        
        2012-12-11 16:10
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es hängt wohl auch von den installierten locales ab. hier geht es mit de_DE.utf8. d.h. portabel ist das alles nicht so richtig.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-12-11 14:49.