神奇的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,"李");
}
页:
[1]