浅析 Linux 的国际化与本地化机制
http://www.ibm.com/developerworks/cn/linux/l-cn-linuxglb/index.html?ca=drs-
如何获得当前系统的locale呢?包括windows和UNIX
http://bbs.chinaunix.net/viewthread.php?tid=1752378
http://search.cpan.org/~sburke/Win32-Locale-0.04/Locale.pm
use Win32::Locale;
my $language = Win32::Locale::get_language();
if($language eq 'en-us') {
print "Wasaaap homeslice!/n";
} else {
print "You $language people ain't FROM around here, are ya?/n";
}