Perl中检测标准输入使用的字符集
2013-09-03 19:15
246 查看
#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循环读取标准输入设备
- 2. 编写一个程序,从标准输入读取几行输入。每行输入都要打印到标准输出上,前面加上行号。在编写这个程序的时候要使用让这个程序能够处理的输入行的长度没有限制
- 使用深度学习检测DGA(域名生成算法)——LSTM的输入数据本质上还是词袋模型
- 使用SAP标准程序:RMDATIND可直接输入物料主数据
- 使用 Perl 检测 系统进程,实现进程意外退出重启
- 在Java中使用标准输入输出设备进行字符串,整数浮点数等 的输入输出操作
- Perl 关于在程序运行过程中重新开启标准输入的问题
- GPIO输入按键检测(使用STM32Cube_FW_F4_V1.16.0固件库)
- 使用trim方法检测用户输入
- C语言学习3-1:成绩检测,使用while和do...while得到九九乘法,1-1/2+1/3-1/4 .......+1/10求和,输入10进制打印2进制,求素数,猜随机产生的数字,16进制转二进制,
- java.io.Console的使用以及重定向标准输出/输入
- 测试使用jq的无alert检测提示form输入内容错误信息方法
- 使用php A题 php的标准输入输出流
- 初次使用流迭代器从标准输入读取整型数据,根据奇、偶性写入不同文件
- 2.使用线程方式获取标准输入
- Perl_标准输入_STDIN
- C++ 标准输入 cin 使用
- 4路AD中的4路检测外部模拟量输入 使用液晶显示
- 使用汇编实现从标准输入获取数据和标准输出输出数据