神奇的perl-第六个任务(7)
程序员文章站
2022-04-29 15:54:55
...
本神奇的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,"李");
}
下一篇: perl多线程