perl 练习3 子程序的调用

1.调取子程序，将sun 子程序不断相加，然后面调取值。
    #!/usr/bin/perl -w
    sub feiyang {
                      $n +=1;#全局变量
                      print "sailor number $n!\n"
                     }
    &feiyang;#第一次调取子程序
    &feiyang;#第二次
    sub sum_f_b{
      print "you called the sum_f_b subroutine!\n";
      $fred + $barney;
    }
    #给变量赋值
    $fred = 3;
    $barney = 2;
    $wsum = &sum_f_b;
    print "\$wsum is $wsum. \n";
    $betty = 3 * &sum_f_b;
    print "\$betty is $betty \n";
    输出结果：

    ]# perl sun.pl
    sailor number 1!
    sailor number 2!
    you called the sum_f_b subroutine!
    $wsum is 5.
    you called the sum_f_b subroutine!
    $betty is 15

    2.向子程序传递参数
    cat suncan.pl
    sub max{
     if ($_[0]>$_[1]){# 数组为第一个参数的索引值为0,以此类推。
       $_[0];
       }else {
       $_[1]
       }
    }
    $n = &max(1,2);#将1和2传递给max 程序进行对比，然后获取返回值打印出来
    #&max;
    print $n;
    输出结果：
    #]#perl suncan.pl
    2
    3.子程序中的私有变量
    #Perl 默认创建的是全局变量，在任何地方都可以访问，用my 操作符创建私有变量，禁止全局访问。
    #@_ 包含参数列表
    #!/usr/bin/perl -w
    sub max{
    #my ($m,$n); #私有变量
    #($m,$n)=@_;
    my ($m,$n) = @_; #等同于 上面注释的两行
    if($m > $n){ $m}else{$n}
    }
    完整例子：
    #!/usr/bin/perl -w
    sub max{
    my ($m,$n) = @_; #== my ($m,$n); ($m,$n)=@_;
    if($m > $n)
    { print "the \$m is :$m \n";}else{print "the \$n is:$n \n";}
    }
    &max(4,3);#为子程序传递参数，这时@_或默认读取这两元素自定义为数组，然后将其赋值给变量。
    输出：
    ]# perl sunmy.pl
    the $m is :4

4.可变的参数列表
#可以用if判断@_ 参数个数，因为Perl 默认会把任意长度的列表当做参数传给子程序，但这也会造成很多问题。
#上边完善后的脚本为
sub max{
  #判断是否为两个，两个就进行比较。
  if (@_ !=2){
       $sum = @_; #定义变量来获取@_的参数个数。
        print "Warning ! The \@_ numbers is $sum, &max should be two arguments!\n";
     }
  else{
      my ($m,$n) = @_;
      if($m > $n)
      { print "the \$m is :$m \n";}else{print "the \$n is:$n \n";}
      }
}

#&max(4,3,5);# 分别用两个参数和三个参数的子程序 做实验，
&max(4,3);

输出：
当参数为三个时：
]# perl sunmy.pl
Warning ! The @_ numbers is 3, &max should get exactly two arguments!
当参数为两个时：
]# perl sunmy.pl
the $m is :4

5.更好的&max 子程序
$maxmum = &max(3,5,10,4,2);#为子程序定义一个数组
sub max {
   my ($myx_so_far) = shift @_;#shift 窃取数组第一个元素，并输出
   foreach (@_){ #遍历数组
       if($_ > $max_so_far){
          $max_so_far = $_; #进行比对后，如果$_ 中有比截取出来的大，赋值给$max_so_far,直到条件不成立为止
        }
    }
   print "The \$max_so_far is:\n $max_so_far \n";
}
输出：
The $max_so_far is:
 10

5.my变量的使用
my($num)= @_; #列表上下文，和($num) = @_; 相同
my $num = @_; #标量上下文，和$num = @_; 相同
第一个，按照列表上下文，$num 会被设为第一个参数，
第二个，按照标量上下文，它会被设为参数的个数。
my不适用括号时，只用来声明单个词法变量：
my $fred, $barney ;#错! 没声明$barney
my($fred, $barney); #两个都声明了。
例：
#!/usr/bin/perl -w
foreach(1...10){
 my ($square)= $_ * $_;
 print "$_ squared is $square.\n";
}


输出：
]# perl sunzero.pl
1 squared is 1.
2 squared is 4.
3 squared is 9.
4 squared is 16.
5 squared is 25.
6 squared is 36.
7 squared is 49.
8 squared is 64.
9 squared is 81.
10 squared is 100.

6.非标量值返回
#!/usr/bin/perl -w
sub list_f_fred_to_barney{
        if($fred < $barney){
        $fred..$barney;
        } else {
        reverse $barney..$fred;
        }
}
$fred= 11;
$barney = 6;
$c = &list_f_fred_to_barney;
print $c;
输出：
]# perl feibiao.pl
11019876

7.return 输出
#!/usr/bin/perl -w
my @names = qw/ aa bb cc dd ee ff gg hh kk /;
my $result = &which_element_is("cc",@names);
sub which_element_is {
  my($what,@array)= @_;
  foreach $once (0...$#array){
     if ($what eq $array[$once]){
       return $_;
       #print "the what is :\n $what \n:the \@array is :@array.\n";
      }
 
   }
  -1;
}
print "the result is :\n $result \n" ;#验证输出的值，return

8.数组相加得值
#!/usr/bin/perl -w
my @fred= qw(1 3  5  7 9);
my $fred_total = total(@fred); #此处省略了&符号
sub total{
  my $sum = 0;
  foreach (@_){
   $sum += $_;

   }
$sum
}
print "The total of \@fred is $fred_total.\n";

9.从1加到1000
#!/usr/bin/perl -w
my @fred= qw(1 3  5  7 9);
my $fred_total = total(@fred);
sub total{
  my $sum = 0;
  foreach (1..1000){ #会覆盖之前fred数组的元素
   $sum += $_;

   }
$sum
}
print "The total of \@fred is $fred_total.\n";