locales.pl

来自「WIN32::API for perl dev 5」· PL 代码 · 共 8 行

use Win32::kernel32;

for $locale (0..2048) {
    $lang = Win32::VerLanguageName($locale);
    if($lang ne "Language Neutral") {
        printf("%4d (%s) %s\n", $locale, $lang, Win32::GetCurrencyFormat(10000, $locale));
    }
}