Tausender Trennzeichen einfügen (Allgemeines zu Perl)

[thread]18991[/thread]

Tausender Trennzeichen einfügen

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
Kuerbis

2014-03-23 09:31
User since
2011-03-20
963 Artikel
BenutzerIn
Hallo,

gibt es bei dieser Funktion etwas auszusetzen?
Mit ihr möchte ich Tausender-Trennzeichen einfügen.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

sub insert_sep { my ( $number, $separator ) = @_; return if ! defined $number; $separator //= ','; return $number if $number =~ /\Q$separator\E/; return $number if $number !~ /^([+-]?\d{4,})(\D\d+)?\z/; my ( $n1, $n2 ) = ( $1, $2 ); $n1 =~ s/(\d)(?=(?:\d{3})+\b)/$1$separator/g; return $n1 . $n2 if $n2; return $n1; }
- +6 replies
- payx
  
  2014-03-23 11:27
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Kuerbis,
  
  Dein Code scheint soweit zu funktionieren.
  
  Ich habe mal diese Regex für diesen Zweck gefunden (weiß nicht mehr wo; sie findet sich vielerorts im Netz):
  
  Code (perl): (dl )
  
  $number =~ s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1$separator/g;
  
  Damit ließe sich Dein Code wohl etwas straffen (ohne $n1 und $n2).
  
  Grüße
  Holger
  
  PS: Ansonsten hatte pq ja schon in msg #18982 empfohlen, Number::Format zu benutzen. Das kenne ich selbst zwar noch nicht, aber ich hätte es auf jeden Fall aufgrund dieser Empfehlung ausprobiert, bzw. gedenke es beim nächsten Anwendungsfall zu tun.
  - +3 replies
  - Kuerbis
    
    2014-03-23 14:46
    
    User since
    2011-03-20
    963 Artikel
    BenutzerIn
    
    Thx!
    
    Das Modul habe ich mir kurz angeschaut - ich glaube ich hatte es früher schon einmal in Verwendung.
    Es ist ein bisschen ungut, dass das letzte Update eine Weile her ist.
    - Relais
      
      2014-03-23 15:25
      
      User since
      2003-08-06
      2261 Artikel
      ModeratorIn
      
      2014-03-23T13:46:27 Kuerbis
      Es ist ein bisschen ungut, dass das letzte Update eine Weile her ist.
      
      Warum und in wiefern ist das denn ungut?
      Hat es viele ungelöste Fehler?
      Erst denken, dann posten --
      27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
      
      Winter is Coming
    - GwenDragon
      
      2014-03-23 15:42
      
      User since
      2005-01-17
      14892 Artikel
      Admin1
      
      Es kompiliert nicht mit Strawberry :( https://rt.cpan.org/Public/Bug/Display.html?id=710...
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - kristian
    
    2014-03-24 14:06
    
    User since
    2005-04-14
    684 Artikel
    BenutzerIn
    
    2014-03-23T10:27:34 payx
    Ich habe mal diese Regex für diesen Zweck gefunden (weiß nicht mehr wo; sie findet sich vielerorts im Netz)
    
    Unter anderem wohl hier (perlfaq)
    - payx
      
      2014-03-24 14:59
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Ja, das war's. Gestern war ich irgendwie zu blöd, das wiederzufinden.

View all threads created 2014-03-23 09:31.