Help for this page

Select Code to Download


  1. or download this
    $ perl -E 'use POSIX qw(setlocale LC_NUMERIC); say 3.14; setlocale(LC_
+NUMERIC, ""); say 3.14; setlocale(LC_NUMERIC, "C"); say 3.14; setloca
+le(LC_NUMERIC, ""); say 3.14; say 3.14 . "";'
3.14
...
3.14
3,14
3.14
  2. or download this
    ~$ perl -E 'use Gtk2 -init; use POSIX qw(setlocale LC_NUMERIC); say 3.
+14; setlocale(LC_NUMERIC, ""); say 3.14; setlocale(LC_NUMERIC, "C"); 
+say 3.14; setlocale(LC_NUMERIC, ""); say 3.14; say 3.14 . ""; ' 
3,14
...
3.14
3,14
3,14