use POSIX qw/locale_h/；
## 获取有关钱币，时间，符号的信息。
$locale_values = localeconv();
for (sort keys %$locale_values) {
printf "%-20s = %s\n", $_, $locale_values->{$_};
}
## 获取语言的所有信息
## 有LC_ALL, LANGUAGE, LC_CTYPE, LC_COLLATE,
## LC_MONETARY, LC_NUMBERIC, LC_TIME,
## LANG这个要捕捉错误,因为有的系统没有设.
$old_locale = setlocale(LC_ALL);
print $old_locale;