1000er Trennzeichen in Zahlen - #53739 (Allgemeines zu Perl)

Crian

2003-09-18 15:29

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich nehme dazu immer diese Funktion:

Code: (dl )

sub taupu($) {
    my $text = reverse $_[0];
    $text =~ s:\.:,:g; # deutsches Komma als Dezimaltrenner
    $text =~ s/(\d\d\d)(?=\d)(?!\d*,)/$1./g;
    return scalar reverse $text;
} # sub taupu

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite