Perl 教程 之 Perl 子程序(函数) 2

简介: 向子程序传递参数

Perl 教程 之 Perl 子程序(函数) 2

Perl 子程序(函数)

Perl 子程序也就是用户定义的函数。

Perl 子程序即执行一个特殊任务的一段分离的代码,它可以使减少重复代码且使程序易读。

向子程序传递参数

Perl 子程序可以和其他编程一样接受多个参数,子程序参数使用特殊数组 @_ 标明。

因此子程序第一个参数为 $[0], 第二个参数为 $[1], 以此类推。

不论参数是标量型还是数组型的,用户把参数传给子程序时,perl默认按引用的方式调用它们。

实例

!/usr/bin/perl

定义求平均值函数

sub Average{

获取所有传入的参数

n=scalar(@);sum = 0;

foreach $item (@){
sum+=item;
}
average=sum / $n;
print '传入的参数为 : ',"@
\n"; # 打印整个数组
print "第一个参数值为 : _[0]\n"; # 打印第一个参数  print "传入参数的平均值为 :average\n"; # 打印平均值
}

调用函数

Average(10, 20, 30);

执行以上程序,输出结果为:

传入的参数为 : 10 20 30
第一个参数值为 : 10
传入参数的平均值为 : 20
用户可以通过改变 @_ 数组中的值来改变相应实际参数的值。

目录
打赏
0
0
0
0
296
分享
相关文章
|
10月前
|
|
10月前
|
Perl 教程 之 Perl 循环 2
循环控制语句
58 1
Perl 教程 之 Perl 子程序(函数) 3
Perl 中的子程序(也称为函数)是用于执行特定任务的代码块。您可以在程序的多个位置调用这些子程序,以提高代码的可重用性和模块性。在 Perl 中,子程序可以接收参数,并可以返回值。 以下是 P
|
10月前
|
Perl 教程 之 Perl 特殊变量 1
Perl教程介绍了Perl的特殊变量,如预定义的OSERRORuseEnglish)_,_在循环和模式匹配中默认存储当前值。例如,一个foreach循环无需显式指定变量,仍能通过print输出迭代的内容。此外,print使while_也用于存储输入记录。
46 2
|
10月前
|
Perl 教程 之 Perl 特殊变量 2
Perl特殊变量包括全局标量、数组、哈希、文件句柄及常量等,如ARG、@ARGV、%ENV等。它们在不同场景下有特定用途,如!存储系统错误信息,@ARGV保存命令行参数,%SIG处理信号。还有正则表达式变量如$&存储匹配字符串,以及文件句柄如STDIN、STDOUT。这些变量在Perl编程中起到关键作用。
78 2
|
10月前
|
|
10月前
|