Perl.it - Documenti

Il linguaggio

[5] Come metto i puntini delle migliaia su un numero

Ponendo che il separatore decimale sia la virgola (sistema europeo), una semplice soluzione per inserire i punti delle migliaia E la seguente:

$numero = reverse $numero;
$numero =~ s/(ddd)(?=d)(?!d*,)/$1./g;
$numero = reverse $numero;

Se si desidera invece utilizzare il sistema anglosassone, in cui il separatore decimale E il punto e quello delle migliaia E la virgola, l'espressione regolare va cosE modificata:

$numero =~ s/(ddd)(?=d)(?!d*.)/$1,/g;

indietro

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalità di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.