#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;
#
my $dot_pos = rindex($lang, '.');
my $encode = $dot_pos < 0 ?$lang : substr($lang, $dot_pos+1);
$encode = $encode eq ''? 'utf8': $encode;
}
#使用方法
扫一扫
110
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
