1. 数组
2. 编码
参考:http://bbs.chinaunix.net/thread-1751048-1-1.html
Perl 的 utf8 与编码处理
本文基于笔者查阅的 perldoc 和试验结果。鉴于经常有人被编码问题困扰,现笔者把所了解的关于 Perl utf8 与编码处理的资料总结一下。由于所知有限,可能会有讲错的地方,如有需要,可自行查阅:
perldoc Encode
perldoc PerlIO
perldoc utf8
perldoc encoding
下面用到这几个函数,能提供有用的帮助:
Encode::is_utf8($str) # 当字符串 utf8 flag 为on时,返回真,否则返为假
utf8::is_utf8($str) # 同上
Encode::_utf8_on($str) # 手工设置 utf8 flag 为on
Encode::_utf8_off($str) # 手工设置 utf8 flag 为off
PerlIO::get_layers(FP) # 得到语柄的 layers
3. my $len = length($taginfo);
4. if ($catname ne $tagname)
http://www.cbi.pku.edu.cn/chinese/documents/perl/perl3.htm#四、逻辑操作符
5. open(GO,">>text.txt")用追加,不要用>,>会清空原来的文件,进行从写,>>是追加
6. my @arrs = split(/\|/, $key);
字典 数组 长度
scalar(keys %hash)