unijun 发表于 2018-8-30 11:04:13

perl简洁编程，《Perl语言入门（第五版）》读书笔记

sub max {    my($max_so_far)=shift @_; #数组中的第一个值，初始设定为最大值　　
    foreach (@_) {   #遍历数组@_中的其他元素
　　
      if($_ > $max_so_far) { #当前元素比$max_so_far大的时候
　　
            $max_so_far = $_;
　　
      }
　　
    }
　　
    $max_so_far;
　　
}


页: [1]
查看完整版本: perl简洁编程，《Perl语言入门（第五版）》读书笔记