Perl中检测标准输入使用的字符集
2013-09-03 17:32
429 查看
#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;
#
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中检测标准输入使用的字符集
- [NPWP笔记]使用perl循环读取标准输入设备
- java.io.Console的使用以及重定向标准输出/输入
- 测试使用jq的无alert检测提示form输入内容错误信息方法
- GPIO输入按键检测(使用STM32Cube_FW_F4_V1.16.0固件库)
- C语言学习3-1:成绩检测,使用while和do...while得到九九乘法,1-1/2+1/3-1/4 .......+1/10求和,输入10进制打印2进制,求素数,猜随机产生的数字,16进制转二进制,
- 2.使用线程方式获取标准输入
- 初次使用流迭代器从标准输入读取整型数据,根据奇、偶性写入不同文件
- Perl_标准输入_STDIN
- C++ 标准输入 cin 使用
- 4路AD中的4路检测外部模拟量输入 使用液晶显示
- 使用汇编实现从标准输入获取数据和标准输出输出数据
- 使用php A题 php的标准输入输出流
- perl-标准输入与输出
- 嵌入式 uboot启动中被用户终止后死循环到哪问题的解析,tstc检测是否存在标准输入流
- c语言:C语言清空输入缓冲区在标准输入(stdin)情况下的使用
- 使用标准输入对话框
- Linux Shell学习:使用read从标准输入中读取一行
- 从使用os.system)在python命令(重定向标准输入输出
- 使用标准输入对话框