Perl学习笔记 之 [ 函数, 参数, @_, $_, $_[0], shift ]
2011-03-02 13:34
441 查看
Perl学习笔记 之 [ 函数, 参数, @_, $_, $_[0], shift ]
1. Perl函数
通过 & 调用.
2. Perl参数
Perl天然支持可变数目个参数。
在函数内部,所有参数按顺序放在数组 @_ 中。
在函数内部,$_[0] 表示函数的第一个参数。其余类推。
3. shift
shift 后跟一个数组,表示将数组的第一个值返回。数组也被改变,其第一个元素被弹出。
演示代码一(求最大值):
#!/usr/bin/perl -w
use strict;
# 调用函数max,取得一组数值的最大值,并输出。
my $maxValue = &max(11,22,33);
print "maxValue=$maxValue\n";
sub max {
# 采用遍历算法。先将参数中的第一个值赋给$currentMaxValue。
# @_ 是默认的包含本函数所有参数 [如(11,22,33)]的数组。
# shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxValue). 2. 将@_数组第一个值弹出[此后@_的值变为(22,33)].
my $currentMaxValue = shift @_;
# 函数中使用shift时,@_可以省略。上面代码也可以写成这样。
# my $currentMaxValue = shift;
# 遍历整个@_数组。
foreach ( @_ ) {
# $_ 表示数组@_中当前被遍历到的元素.
if ( $_ > $currentMaxValue ) {
# 如果发现当前数组元素比$currentMaxValue大,那就将$currentMaxValue重新赋值为当前元素。
$currentMaxValue = $_;
}
}
# 函数返回值为标量$currentMaxValue.
return $currentMaxValue;
}
演示代码二(求和):
#!/usr/bin/perl -w
use strict;
# 求一组数的和并打印。
my $s1 = &sum1(11,22,33);
my $s2 = &sum2(22,33,44);
my $s3 = &sum3(11,22,33,44,55);
print "s1=$s1, s2=$s2, s3=$s3\n";
# 办法1
sub sum1 {
# 将参数数组的前三个元素值相应地赋给($first, $second, $third)
(my $first, my $second, my $third) = @_;
# 返回其和值。缺点: 如果是求四个参数的和,依然只能给出前三个的和。
return $first + $second + $third;
}
# 办法2
sub sum2 {
# $_[0] 表示参数数组@_的第一个元素。其余类推。
my $first = $_[0];
my $second = $_[1];
my $third = $_[2];
# 返回其和值。缺点: 同sum1. 只是通过这里学习 $_[0] 这种用法。
return $first + $second + $third;
}
# 办法3, 参数可以任意多。都能求其和。
sub sum3 {
my $s = shift @_;
foreach ( @_ ) {
$s = $s + $_;
}
# 同前面函数max。
return $s;
}
1. Perl函数
通过 & 调用.
2. Perl参数
Perl天然支持可变数目个参数。
在函数内部,所有参数按顺序放在数组 @_ 中。
在函数内部,$_[0] 表示函数的第一个参数。其余类推。
3. shift
shift 后跟一个数组,表示将数组的第一个值返回。数组也被改变,其第一个元素被弹出。
演示代码一(求最大值):
#!/usr/bin/perl -w
use strict;
# 调用函数max,取得一组数值的最大值,并输出。
my $maxValue = &max(11,22,33);
print "maxValue=$maxValue\n";
sub max {
# 采用遍历算法。先将参数中的第一个值赋给$currentMaxValue。
# @_ 是默认的包含本函数所有参数 [如(11,22,33)]的数组。
# shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxValue). 2. 将@_数组第一个值弹出[此后@_的值变为(22,33)].
my $currentMaxValue = shift @_;
# 函数中使用shift时,@_可以省略。上面代码也可以写成这样。
# my $currentMaxValue = shift;
# 遍历整个@_数组。
foreach ( @_ ) {
# $_ 表示数组@_中当前被遍历到的元素.
if ( $_ > $currentMaxValue ) {
# 如果发现当前数组元素比$currentMaxValue大,那就将$currentMaxValue重新赋值为当前元素。
$currentMaxValue = $_;
}
}
# 函数返回值为标量$currentMaxValue.
return $currentMaxValue;
}
演示代码二(求和):
#!/usr/bin/perl -w
use strict;
# 求一组数的和并打印。
my $s1 = &sum1(11,22,33);
my $s2 = &sum2(22,33,44);
my $s3 = &sum3(11,22,33,44,55);
print "s1=$s1, s2=$s2, s3=$s3\n";
# 办法1
sub sum1 {
# 将参数数组的前三个元素值相应地赋给($first, $second, $third)
(my $first, my $second, my $third) = @_;
# 返回其和值。缺点: 如果是求四个参数的和,依然只能给出前三个的和。
return $first + $second + $third;
}
# 办法2
sub sum2 {
# $_[0] 表示参数数组@_的第一个元素。其余类推。
my $first = $_[0];
my $second = $_[1];
my $third = $_[2];
# 返回其和值。缺点: 同sum1. 只是通过这里学习 $_[0] 这种用法。
return $first + $second + $third;
}
# 办法3, 参数可以任意多。都能求其和。
sub sum3 {
my $s = shift @_;
foreach ( @_ ) {
$s = $s + $_;
}
# 同前面函数max。
return $s;
}
相关文章推荐
- Perl学习笔记 之 [ 函数, 参数, @_, $_, $_[0], shift ]
- linux shell编程控制结构:expr、let、for、while、until、shift、if、case、break、continue、函数、select 学习笔记
- Scala 学习笔记(五)------定义函数指定默认参数
- [C++学习笔记]--内联函数、函数重载、函数defualt参数
- python学习笔记——函数可变参数处理
- Python学习笔记——函数参数
- 廖雪峰python函数的参数学习笔记
- C/C++学习笔记12:数组作为函数参数
- C++学习笔记1(带参数的main( )函数)
- c语言学习笔记30之函数参数
- C++常引用作为函数的参数学习笔记
- Kotlin学习笔记--函数、函数表达式、默认参数、具名参数
- JavaScript学习笔记第一天——定义函数以及参数调用
- linux shell编程控制结构:expr、let、for、while、until、shift、if、case、break、continue、函数、select 学习笔记
- PHP学习笔记——自定义函数中的参数;
- 谭子python学习笔记--函数的参数
- DL学习笔记【8】caffe参数调节-激活函数层
- perl学习笔记六----函数
- 2.关于结构体以及结构体数组作为函数入口参数的方法(学习笔记)
- linux shell编程控制结构:expr、let、for、while、until、shift、if、case、break、continue、函数、select 学习笔记