# plik receptury: perl_sub_commify

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Dodanie spacji jako separatora tysęcy
# Wynik: ciąg wejściowy z przekształconymi wartościami liczbowymi
# Z książki Perl. Receptury 2 - receptura 2.16
sub commify {
    @_ == 1 or carp ('Użycie: $withcomma = commify($somenumber);');

    # Z książki Perl. Receptury 1 - receptura 2.17 lub 2.16 w książce Perl. Receptury 2

    my $text = reverse $_[0];
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1 /g;
    return scalar reverse $text;

}
