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

本神奇的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,"李");

 }