神奇的perl-第六个任务(7)

bobbai

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载　　我们编写Utf2Gbk模块，实现编码自动转换。
　　#Utf2Gbk.pm文件
　　package Utf2Gbk;#包名
　　#以下两行令本模块 继承Exporter 类，必须要有这2行，否则无法输出符号给外部代码使用
　　require Exporter;
　　our @ISA =qw(Exporter);
　　use Encode;
　　our @EXPORT =qw(cdstr);
　　...............
　　...............
　　我们在perl4-18-new.pl中使用Utf2Gbk模块，相比perl4-18.pl，程序简单明了。
　　push (@names,"李明");
　　push (@names,"李永");
　　push (@names,"黄珏");
　　push (@names,"刘上新");
　　my $names=cdstr(2,\@names);
　　@names=@$names;
　　#找出所有李姓人名
　　foreach  my $name(@names){
　　 my $xing=cdstr(1,"李");
　　}