use POSIX qw/locale_h/；
##???????獲取有關(guān)錢幣，時間，符號的信息。
$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這個要捕捉錯誤,因?yàn)橛械南到y(tǒng)沒有設(shè).
$old_locale = setlocale(LC_ALL);
print $old_locale;