sub parse_decimal {
    (my $input = shift) =~ s/[^\d,\.]//g;
    my %o = (','=>'.','.'=>',');
...

Perl On Handling both dots and comm...

by giftnuss, November 17, 2009 10:00

This is a useable implement...