Perl: выберите кодировку на основе среды

Question

Я пытаюсь определить правильную кодировку perl для использования на основе языка, установленного в среде. Это хорошо работает, когда язык является языком UTF-8, но один пользователь попытался установить свой LANG на «Ja_JP» в AIX.

$ LANG=Ja_JP perl -MI18N::Langinfo=langinfo,CODESET -E 'say langinfo(CODESET)' 
IBM-943 

К сожалению, я не знаю, как преобразовать это во что-то, что примет binmode.

Answer 1

Согласно странице Википедии на Shift JIS,

IBM CCSID 943 имеет те же расширения, как Code Page 932.

Таким образом, вы можете использовать :encoding(cp932)

---

Для того, чтобы :encoding(IBM-943) работать, вам нужно создать псевдоним в Encode :: Alias.

Вы можете подать запрос на функцию, чтобы добавили этот псевдоним, или вы могли бы определить его самостоятельно в сценарии:

use Encode::Alias qw(define_alias); 
define_alias(qr/^ibm-943$/i => '"cp932"'); 

Вам потребуется поместить define_alias вызов внутри BEGIN { } если вы собираетесь следовать с

use open ':std', ':locale';