神奇的PERL-第六个任务(2)

本文通过创建一个简单的Perl模块mydeep,并在另一个Perl脚本中使用它,介绍了如何在Perl中定义和使用模块。演示了如何导出子程序供外部使用。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创,未经笔者授权,任何人和机构不能转载

1)         module Perl 里可复用的基本的单元,实质为定义在一个同名文件(以.pm结尾)里面的包。例如:

我们先定义mydeep模块(mydeep.pm)

#mydeep.pm文件

package mydeep;#包名

#以下两行令本模块 继承Exporter 类,必须要有这2行,否则无法输出符号给外部代码使用

require Exporter;

our @ISA =qw(Exporter);

 

our @EXPORT =qw(myadd);#输出myadd子程序名给外部代码使用,将符号myadd加入@EXPORT数组中。

sub myadd{

      return $_[0]+$_[1];

}

our $y=2;

然后编写perl4-15.pl

#perl4-15.pl

use mydeep;

print &myadd(10,5);#调用mydeep模块的myadd方法

print "\n";#换行

print $mydeep::y;#输出mydeep模块的$y变量

print "\n";#换行

输出结果如我们所料:

15

2

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值