perl 函数, 参数, @_, $_, $_[0], shift 的用法示例

概述转自：perl 函数, 参数, @_, $_, $_[0], shift 的用法示例 1. Perl函数   通过 & 调用。 2. Perl参数   Perl天然支持可变数目个参数。   在函数内部，所有参数按顺序放在数组 @_ 中。   在函数内部，$_[0] 表示函数的第一个参数。其余类推。 3. shift   shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素

转自：perl 函数,参数,@_,$_,$_[0],shift 的用法示例

1. Perl函数
  通过 & 调用。

@H_403_15@
2. Perl参数
  Perl天然支持可变数目个参数。
  在函数内部，所有参数按顺序放在数组 @_ 中。
  在函数内部，$_[0] 表示函数的第一个参数。其余类推。

@H_403_15@
3. shift
  shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被d出。

@H_403_15@ 演示代码一(求最大值):

#!/usr/bin/perl -w
use strict;
# 调用函数max，取得一组数值的最大值,并输出。
my $maxValue = &max(11,22,33);
print "maxValue=$maxValue\n";
sub max {

@H_403_15@
    # 采用遍历算法。先将参数中的第一个值赋给$currentMaxValue。
    # @_ 是默认的包含本函数所有参数[如(11,33)]的数组。
    # shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxValue). 2. 将@_数组第一个值d出[此后@_的值变为(22,33)].
    my $currentMaxValue = shift @_;

@H_403_15@
    # 函数中使用shift时，@_可以省略。上面代码也可以写成这样。
    # my $currentMaxValue = shift;
    # 遍历整个@_数组。
    foreach ( @_ ) {

@H_403_15@
        # $_ 表示数组@_中当前被遍历到的元素.
        if ( $_ > $currentMaxValue ) {

            # 如果发现当前数组元素比$currentMaxValue大，那就将$currentMaxValue重新赋值为当前元素。
            $currentMaxValue = $_;
        }
    }
    # 函数返回值为标量$currentMaxValue.
    return $currentMaxValue;
}

@H_403_15@  

@H_403_15@ 演示代码二(求和):

@H_403_15@
#!/usr/bin/perl -w
use strict;
# 求一组数的和并打印。
my $s1 = &sum1(11,33);
my $s2 = &sum2(22,33,44);
my $s3 = &sum3(11,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;
}

@H_403_15@
# 办法2
sub sum2 {
    # $_[0] 表示参数数组@_的第一个元素。其余类推。
    my $first = $_[0];
    my $second = $_[1];
    my $third = $_[2];
    
    # 返回其和值。缺点: 同sum1. 只是通过这里学习 $_[0] 这种用法。
    return $first + $second + $third;
}

@H_403_15@ # 办法3,参数可以任意多。都能求其和。 sub sum3 {     my $s = shift @_;          foreach ( @_ ) {         $s = $s + $_;     }          # 同前面函数max。     return $s; }

总结

以上是内存溢出为你收集整理的perl 函数, 参数, @_, $_, $_[0], shift 的用法示例全部内容，希望文章能够帮你解决perl 函数, 参数, @_, $_, $_[0], shift 的用法示例所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。