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
用户可以通过改变 @_ 数组中的值来改变相应实际参数的值。

目录
相关文章
|
2月前
|
Perl
|
3月前
|
程序员 Perl
|
3月前
|
Perl
Perl 教程 之 Perl 循环 2
循环控制语句
16 1
|
2月前
|
存储 缓存 Unix
Perl 教程 之 Perl 特殊变量 2
Perl特殊变量包括全局标量、数组、哈希、文件句柄及常量等,如$_、$ARG、@ARGV、%ENV等。它们在不同场景下有特定用途,如$_用于默认输入和模式匹配,$!存储系统错误信息,@ARGV保存命令行参数,%SIG处理信号。还有正则表达式变量如$&存储匹配字符串,以及文件句柄如STDIN、STDOUT。这些变量在Perl编程中起到关键作用。
18 2
|
2月前
|
存储 Perl
Perl 教程 之 Perl 特殊变量 1
Perl教程介绍了Perl的特殊变量,如预定义的$OS_ERROR(通过use English启用)和常用默认变量)$_$。,$_在循环和模式匹配中默认存储当前值。例如,一个foreach循环无需显式指定变量,仍能通过print输出迭代的内容。此外,$_在单目函数、文件测试、模式匹配和某些函数(如print)中也被默认使用。在特定的while循环条件下,$_也用于存储输入记录。
13 2
|
2月前
|
Perl
|
2月前
|
Perl
|
2月前
|
自然语言处理 Perl
|
2月前
|
自然语言处理 Perl
|
2月前
|
Perl