#!/usr/bin/perl -w
my
$orig_loc
= setlocale( LC_ALL );
my
$loc
;
open
my
$LOCALES
,
'-|'
,
'locale -a'
;
local
$\ =
"\n"
;
"The following locales use comma as decimal point"
;
while
(<
$LOCALES
>) {
chomp
;
$loc
= setlocale( LC_ALL,
$_
);
$_
if
localeconv()->{decimal_point} eq
','
;
}
close
$LOCALES
;
$loc
= setlocale( LC_ALL,
$orig_loc
);