神奇的Perl-第六个任务(6)

liuxiaoyun111

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
在WINDOWS控制台中正常运行需要将utf8编码转换成GBK编码，因此单独编写WINDOWS下运行的程序perl4-18-win.pl：
#!c:/perl/bin/perl
#!/usr/bin/perl
#perl4-18-win.pl
# perl4_18_zh为笔者定义的一个模块，导出了一个函数utf2gbk，将UTF8转换为GBK编码
use perl4_18_zh;
my @names;
push (@names,&utf2gbk("李明"));
push (@names,&utf2gbk("李永"));
push (@names,&utf2gbk("黄珏"));
push (@names,&utf2gbk("刘上新"));
#找出所有李姓人名
foreach  $name(@names){
        $xing=&utf2gbk("李");
   print "$name " if ($name=~m/^$xing/);
}
　　
我们编写一个能兼容中文windows和linux字符编码的程序Perl4-18.pl来完成perl4-18-win.pl和perl4-18-linux.pl的功能，部分核心代码如下：
1)判断当前语言环境并放入$bm，UTF8->0,GBK->1
　　下面，我们编写一个能兼容中文windows和linux系统默认字符编码的程序来完成perl4-18-win.pl和perl4-18-linux.pl的功能。
　　如何获得当前系统默认编码是否为ＵＴＦ８呢，我们通过取LANG环境的值来判断。比如：
　　if (defined($ENV{"LANG"})) {
　　if  ($ENV{"LANG"}=~m/utf(-*)8/i)#UTF8->1,GBK->0
　　{$bm=1;}
　　else 
　　{$bm=0;}
　　}
　　else
　　{$bm=0;}
　　以上代码中，如果当前系统编码是UTF8,$bm为0，否则$bm为１。该程序只在linux和中文windows系统运行，中文windows系统编码一般为ＧＢＫ，因此当$bm为1时，当前系统编码为GBK。
2)增加人名
       push (@names,$bm?&utf2gbk("李明"):"李明");
 
.........
.................
3) 找出所有李姓人名
      my $xing=($bm?&utf2gbk("李"):"李");
     print "$name " if ($name=~m/^$xing/);
　　
 最后我们把模块perl4_18_zh修改一下，让它能更好地完成任务。