欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

神奇的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