unknownplace.org

miyagawaさんが作ってくれた！

Term::Encoding

cooool

perlで端末の文字コードを知るにはどうやるのがいいんだろうと思って、LC_ALLとかでgrepした結果、

use Locale::Maketext::Lexicon { _encoding => 'locale' };

my $encoding = Locale::Maketext::Lexicon::encoding();

とかでました。いちおうこれでできるけど超微妙。

このencoding関数だけ外だしにしたようなモジュールないのかなぁ。

10.4.7 になってからだよなぁたぶんこれ。

あー

出社。