use POSIX qw(locale_h);
setlocale(LC_ALL, "de");
# Get a reference to a hash of locale-dependent info
$locale_values = localeconv();
# Output sorted list of the values
for (sort keys %$locale_values) {
printf "%-20s = %s\n", $_, $locale_values->{$_}
}
__END__
use Text::Reform;
my @vals = (1.1,22.22,333.333);
print form
']]]]]].[[',
[@vals];
print form
']]]]]].[[',
[@vals];
setlocale(LC_CTYPE, "");
print form
']]]]]].[[',
[@vals];