unknownplace.org

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

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

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

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

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