Perl中檢測标準輸入使用的字元集

#Perl中檢測标準輸入使用的字元集

sub locale_encode{

my $lang = $ENV{'LANG'};

my $dot_pos = rindex($lang, '.');

my $encode = $dot_pos < 0 ?$lang : substr($lang, $dot_pos+1);

$encode = $encode eq ''? 'utf8': $encode;

}

#使用方法

# print locale_encode;