perl获取系统有关语言的信息

perl获取系统有关语言的信息

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;