http://qs321.pair.com?node_id=852574


in reply to Re^5: Change decimal point temporarily
in thread Change decimal point temporarily

Hm, It seems to work if you use locale:
perl -we 'use POSIX; use locale; setlocale LC_NUMERIC, "fr_FR"; $x = " +123,45"; $x+=0.1; print $x; setlocale LC_NUMERIC, ""; $x += 0.1; prin +t $x;'
Update: this does not work:
perl -we 'use POSIX; use locale; setlocale LC_NUMERIC, "fr_FR"; $x = " +123,45"; print $x; setlocale LC_NUMERIC, ""; $x += 0.1; print $x;'
So what I do now is to add 0 if it looks_like_number() and everything works fine. At least what I've tested until now...

Replies are listed 'Best First'.
Re^7: Change decimal point temporarily
by ikegami (Pope) on Aug 03, 2010 at 02:40 UTC

    ah! In that case,

    (my $tmp = $s) =~ s/,/./; $s = $tmp if looks_like_numbers($tmp);

    You'd be better of specifying which columns are numeric, though. Text::CSV_XS can even take advantage of that information if you tell it (via types).