PDA

Visualizza la versione completa : mettere la virgola


Claudio Vituzzi
23-10-2004, 11:52
come trasformo un numero tipo 40000 in 40.000?

shishii
23-10-2004, 15:35
sub separa {
my $num = shift;
my $text = reverse $num;
$text =~ s/(\d\d\d)(?=\d)(?!\d*\,)/$1\./g;
return scalar reverse $text;
}
$numero = &separa(40000);

Loading