"Peter" <peter@cgi-shop.dk> writes:
> Jeg har brug for forskellige talformater til forskellige sprog.
> eks:
> dk: #.###.###,##
> uk: #,###,###.##
>
> Er der en fiks måde at gøre det på, i perl ?
I perlfaq5 finder vi spørgsmålet
"How can I output my numbers with commas added?"
der giver følgende funktion:
sub commify ($) {
local $_ = shift;
1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
return $_;
}
Den giver så uk fra dit eksempel:
$tal = 1234567.89;
$uk = commify($tal);
Og med en lille manipulation på $uk får vi den danske version:
($dk = $uk) =~ tr/,./.,/;
print "dk: $dk\n", "uk: $uk\n";
--
Lars Balker Rasmussen "S.M.R.T."