ivaneeo's blog

自由的力量,自由的生活。

  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks

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;

posted on 2006-04-18 20:39 ivaneeo 阅读(519) 评论(0)  编辑  收藏 所属分类: perl-杀鸡就要用牛刀

只有注册用户登录后才能发表评论。


网站导航: