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;

#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;

#

总结

以上是内存溢出为你收集整理的Perl中检测标准输入使用的字符集全部内容，希望文章能够帮你解决Perl中检测标准输入使用的字符集所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。