Community  »  Perl: Allgemeines Forum

Zahl: alle 3 Zeichen Komma	Seitenanfang
Hi! Ich habe eine Zahl, z.B. 8454356834968456. Und jetzt soll jedes 3. Zeichen ein Komma eingepfanzt werden: 8,454,356,834,968,456. In PHP gibt es ja ganz praktisch eine Funktion für. Wie sieht es da in erl aus? Bin über jede Antwort froh. Hans Datum: 04.11.2004-12:50
re: Zahl: alle 3 Zeichen Komma	Seitenanfang
Hallo Willst du das wirklich? Brauchst du das für die USA? In Deutschland wäre: #!/usr/bin/perl use strict; use warnings; sub _format_money($); my $cash = '123456789.12'; my $formated = _format_money($cash); print "$formated\n"; sub _format_money($){ my $val = shift; return undef unless(defined $val); my($full,$rest) = split(/\./,$val); $rest ||= '00'; 1 while $full =~ s/^([-+]?\d+)(\d{3})/$1.$2/; return $full . ',' . $rest; } __END__ ok, in Amiland #!/usr/bin/perl use strict; use warnings; sub _format_money($); my $cash = '123456789.12'; my $formated = _format_money($cash); print "$formated\n"; sub _format_money($){ my $val = shift; return undef unless(defined $val); my($full,$rest) = split(/\./,$val); $rest ||= '00'; 1 while $full =~ s/^([-+]?\d+)(\d{3})/$1,$2/; return $full . '.' . $rest; } __END__ das ergibt dann: kristian@under-the-sky:~/cgi-bin/qed> perl format_money.pl 123.456.789,12 für Europa und kristian@under-the-sky:~/cgi-bin/qed> perl format_money.pl 123,456,789.12 für drüben. Gruß Kristian Datum: 04.11.2004-17:35