perl对汉字处理以及对excel处理

《perl对汉字处理以及对excel处理》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Perl处理excel:useSpreadsheet::ParseExcel;my$parser1=Spreadsheet::ParseExcel->new();my$official=$parser1->Parse('official.xls');my@tmp1=$official->worksheets();my$sheet1=$tmp1[0];my($minRow1,$maxRow1)=$sheet1->row_range();foreachmy$row1($minRow1..$maxRow1){my$cell1_0=$

2、sheet1->get_cell($row1,0);nextunless$cell1_0;……}Perl处理中文 这里主要用到了Encode模块的decode、encode函数。要了解这两个函数的作用我们需要清楚几个概念：1、Perl字符串是使用utf8编码的，它由Unicode字符组成而不是单个字节，每个utf8编码的Unicode字符占1~4个字节（变长）。2、进入或离开Perl处理环境（比如输出到屏幕、读入和保存文件等等）时不是直接使用Perl字符串，而需要把Perl字符串转换成字节流，转换过程中使用何种编码方式完全取决

3、于你（或者由Perl代劳）。一旦Perl字符串向字节流的编码完成，字符的概念就不存在了，变成了纯粹的字节组合，如何解释这些组合则是你自己的工作。我们可以看出如果想要Perl按照我们的字符概念来对待文本，文本数据就需要一直用Perl字符串的形式存放。但是我们平时写出的每个字符一般都被作为纯ASCII字符保存（包括在程序中明文写出的字符串），也就是字节流的形式，这里就需要encode和decode函数的帮助了。◆encode将Perl字符串中的字符用指定的编码格式编码，将字符串中字符转化成为字节流。其格式很简单：$octets=e

4、ncode(ENCODING,$string[,CHECK])$string：Perl字符串encoding：　是给定的编码方式$octets:是编码之后的字节流check:　表示转换时如何处理畸变字符（也就是Perl认不出来的字符）。一般不需使用编码方式视语言环境的不同有很大变化，默认可以识别utf8、ascii、ascii-ctrl、iso-8859-1等。◆decode函数按照你给出的编码格式解释给定的字节流，将其转化为使用utf8编码的Perl字符串，将字节流转化成为字符串。一般来说从终端或者文件取得的文本数据都应该用

5、decode转换为Perl字符串的形式。它的格式为：$string=decode(ENCODING,$octets[,CHECK])$string、ENCODING、$octets和CHECK的含义同上。需要用perl处理，就要将输入的中文转化成为字符串，需要输出，就要将中文转化成为字节流。比如有一个字符串”测试文本”，我们想要把这个中文字符串拆成单个字符，可以这样写： 1.useEncode; 2.$dat=”测试文本”; 3.$str=decode(”gb2312″,$dat); 4.@chars=split//,$str

6、; 5.foreach$char(@chars){ 6.printencode(”gb2312″,$char),”/n”; 7.} 首先用decode函数将其转换为Perl字符串，汉字一般都用gb2312格式编码，这里decode也要使用gb2312编码格式。转换完成后Perl对待字符的行为就和我们一样了，平时对字符串进行操作的函数基本上都能正确对字符进行处理，除了那些本来就把字符串当成一堆字节的函数（如vec、pack、unpack等）。于是split就能把字符串切成单个字符了。最后由于在输出的时候不能直接使用utf8编码的

7、字符串，还需要将切割后的字符用encode函数编码为gb2312格式的字节流，再用print输出。另外，还可以用下面的方法来＂猜＂出字符串的编码．但我试过，也不是每次都管用．useEncodeqw/from_to/;useEncode::Guessqw/euc-jpshiftjis/;openINFILE"....";#输入的文件是SHIFT-JIS编码的文件这里只转换第一行做个测试 1.my$str= 2.my$enc=guess_encoding($str); 3.if(ref$enc){ 4.$from=

8、$enc->name; 5.}else{ 6.$from="shiftjis"; 7.} 8. 9.from_to($str,$from,$to); 1.printSTDOUT"ThetestStringis:$str";