format_money() (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-07-18 21:36:55
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
1 guest

[thread]16653[/thread]

submit to reddit

format_money() [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+17 replies
kristian

2011-08-23 20:48
User since
2005-04-14
684 articles
BenutzerIn
Hallo,

ich bin sicher, dass wir hier oder früher mal eine Funktion ausgetüftelt und optimiert haben, die Zahlen formatiert.
Es ging dabei hauptsächlich um Geld.

Aus 10000.99 soll 10.000,99 werden.

Hat das noch eine(r) griffbereit oder im Kopf, wenn nein poste ich meine Versuche das zu erinnern und wir erbasteln es neu.

TIA & Gruß
Kristian

EDIT:
Ich kann mich ja auch gleich blamieren, ev. hilft es beim erinnern:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

sub format_money { my $self = shift; my $string = shift; my ($euro,$cent); if($string =~m/\./){ ($euro,$cent) = split(/\./,$string); }else{ ($euro,$cent) = ($string,0); } my $money = $self->format_num($euro) . ',' . sprintf("%.2d", $cent); return $money; } sub format_num { my $self = shift; my $num = shift; return $num if(length($num) < 4); my $reverse = reverse($num); $reverse =~ s/(\d{3})/$1./g; $num = reverse($reverse); $num =~ s/^\.//; return $num; }
Last edited: 2011-08-23 20:52:24 +0200 (CEST)
- +8 replies
- pq
  
  2011-08-23 20:51
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  versuch mal 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
  - +7 replies
  - kristian
    
    2011-08-23 20:55
    
    User since
    2005-04-14
    684 articles
    BenutzerIn
    
    boah, ich schau gerade in die Source, nichts gegen Module, ich denke das kaufst du mir ab, aber das ist wirklich ein kompletter Militäraufmarsch gegen den Spatzen.
    - +6 replies
    - pq
      
      2011-08-23 21:03
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      es kann ja auch noch mehr
      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
      - kristian
        
        2011-08-23 21:08
        
        User since
        2005-04-14
        684 articles
        BenutzerIn
        
        ja, ist klar ich will aber doch nur den Wert aus der MySQL mit dem ich rechne für die Ausgabe westlich formatieren, es geht auch nicht um eine Lösung, die habe ich ja, es wurmt mich, dass ich die perfekte Lösung, die es schon mal gab nicht mehr hinbekomme.
        Klar, scheiß Alzheimer oder wie hieß das?
        Bringt mich aber auch nicht weiter, es wurmt mich immer noch.
        
        +4 replies
        
        Linuxer
        
        2011-08-23 21:14
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Hi, in Wie Zahl formatieren ? verweist ptk in seiner Nachricht msg #78310 auf die perlfaq5.
        
        Ist es vielleicht die Lösung, die Du suchst?
        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!
        
        +3 replies
        
        kristian
        
        2011-08-23 21:27
        
        User since
        2005-04-14
        684 articles
        BenutzerIn
        
        Auha, ich komme meinem "Problem" näher...
        Wann habe ich denn zuletzt die FAQ gelesen?
        Ich erinnere richtig, das man perlfaq 'Frage' getippt hat?
        
        +2 replies
        
        Linuxer
        
        2011-08-23 21:34
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        ich tipp, wenn ich's tipp, perldoc -q "stichwort oder phrase"
        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!
        
        kristian
        
        2011-08-23 21:48
        
        User since
        2005-04-14
        684 articles
        BenutzerIn
        
        Ok, ich muss es zur Kenntnis nehmen, ich werde alt.
- +4 replies
- rosti
  
  2011-08-23 21:16
  
  User since
  2011-03-19
  3637 articles
  BenutzerIn
  
  Quote
  17.06.2004
  
  Q: Eine Zeichenkette nach zwei Zeichen (Zeichen gruppieren) zu spliten - wie geht das?
  
  $var = "1234567890";
  @var = split /??Ausdruck??/, $var;
  
  Das Ergebnis sollte sein:
  
  @var = (12,34,56,78,90);
  
  A:
  $var =~ s/(\d\d)(?=\d)(?!\d*\,)/$1,/g;
  @var = split(',', $var);
  
  Vielen Dank f�r diesen Code an Helmut, er ist oft im SELFForum (http://forum.de.selfhtml.org/) zu finden.
  
  Hier ist noch ein interessanter Code, von Helmut (aus dem SELFForum):
  
  Q: Wie kann ich Tausender Trennpunkte vor einem Komma einsetzen?
  
  A:
  $var = "123457890765498543298,3322";
  
  $text = reverse $var;
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1./g;
  print scalar reverse $text;
  # Ausgabe: 123.457.890.765.498.543.298,3322
  
  PS/Edit: Wenn ich was nicht weiß, heißt das noch lange nicht, dass ich es vergessen habe, ich kann mich bloß grad nicht erinnern ;)
  Last edited: 2011-08-23 21:19:15 +0200 (CEST)
  http://blog.rolfrost.de/
  
  The art of steam.
  - +3 replies
  - kristian
    
    2011-08-23 21:29
    
    User since
    2005-04-14
    684 articles
    BenutzerIn
    
    Jepp, die Lösung mit der Regex hätte ich eigentlich von Moritz erwartet, da warst du halt schneller ;-)
    
    EDIT:
    Hmm, wenn ich dich jetzt bitte mir die regex zu erklären, kannst du das? (ich könnte es nicht)
    Wenn ich dich jetzt frage, seit wann du den Sortieralgorithmus nach Schwartz erklären kannst und wann du es zum ersten Mal gekonnt hast, weist du es noch?
    Last edited: 2011-08-23 21:44:12 +0200 (CEST)
    - +2 replies
    - rosti
      
      2011-08-23 21:41
      
      User since
      2011-03-19
      3637 articles
      BenutzerIn
      
      2011-08-23T19:29:47 kristian
      Jepp, die Lösung mit der Regex hätte ich eigentlich von Moritz erwartet, da warst du halt schneller ;-)
      
      Ja, sind wir denn hier auf dem Nürburgring :D
      http://blog.rolfrost.de/
      
      The art of steam.
      - kristian
        
        2011-08-23 21:45
        
        User since
        2005-04-14
        684 articles
        BenutzerIn
        
        siehe EDIT im letzen Post.
        Nordschleife ist auch so ein Ding, ich traue mich nicht mehr.
- +3 replies
- kristian
  
  2011-08-23 22:28
  User since
  2005-04-14
  684 articles
  BenutzerIn
  Hallo,
  
  der lieben Ordnung halber, wir haben uns am Ende wohl auf diese Version geeinigt:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  sub format_money { my $self = shift; my $string = shift; my ($euro,$cent); if($string =~m/\./){ ($euro,$cent) = split(/\./,$string); }else{ ($euro,$cent) = ($string,0); } my $money = $self->format_num($euro) . ',' . sprintf("%.2d", $cent); return $money; } sub format_num { my $self = shift; my $num = shift; $num =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1./g; return $num; }
  
  Es geht ja hier auch um Perl und wir tragen die Fackel weiter für die Nachkommenden.
  
  Gruß
  Kristian
  - +2 replies
  - rosti
    
    2011-08-23 22:50
    User since
    2011-03-19
    3637 articles
    BenutzerIn
    
    Hmm,
    
    Code (perl): (dl )
    
    print $u->format_money('zawanzig'); # zawanzig,00
    
    ich dachte, es wird mehr...
    http://blog.rolfrost.de/
    
    The art of steam.
    - kristian
      
      2011-08-23 22:57
      
      User since
      2005-04-14
      684 articles
      BenutzerIn
      
      lächel
      
      ich hoffe ich schaffe die nordschleife noch unter elf. (1,7 liter alfa)
      die uhr wird dabei aber nur mit zahlen arbeiten und hoffentlich nicht bei 'du hast 3 meter leitplanke gekauft,09' stehen bleiben.
- bianca
  
  2011-08-24 08:14
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Die m.E. beste Lösung dafür stammt von topeg in diesem Thread: Kaufmännisch korrekt runden
  10 print "Hallo"
  20 goto 10

View all threads created 2011-08-23 20:48.