Perl实现高水线算法（解决多值比较问题方法）
更新时间：2015年06月15日 09:38:24 投稿：junjie
这篇文章主要介绍了Perl实现高水线算法（解决多值比较问题方法）,从本文代码示例中还可以学习到数组遍历、函数写法、函数调用等知识,需要的朋友可以参考下
"高水线"算法:大水过后，最后一波浪消退时，高水线会标示出所见过的最高水位。
下面看下"高水线"算法在Perl中的运用。
#! /usr/bin/perl;
use utf8;
sub max {
my($max_so_far) = shift @_; #数组中第一个值，暂时当成最大值。
foreach(@_){ #遍历数组@_
if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。
$max_so_far = $_;} #如果有话，更新最大值变量
}
$max_so_far;
}
my $_MaxData = &max(2,3,8,5,10);
print $_MaxData;
第一行对数组@_进行shift操作，将一个元素2放到最大值$max_so_far变量中，@_中剩下的元素为(3,8,5,10)，然后用foreach循环遍历数组，新数组中的第一个元素3比2大，又被移到$max_so_far变量中，依次类推，最后10，就是数组中的最大元素。
相关文章
在成块打印文本的时候特别有用，需要的朋友可以参考下2013-02-02
perl数组中正常的下标运算，想必大家都比较熟悉，这里不作说明。本文想说的是perl数组下标的多数字取值，可以极大的方便数组的操作2013-02-02
Perl的networking 功能非常强大，基本上用c/c++能做的事perl都能做，而且做得更轻松方便，甚至可以只用10来行代码就完成了c/c++要几十上百甚至几百行才能完成得好的工作2013-02-02
perl从文件中读取数据并输出，附一个蛋白质序列的读取，有需要的朋友可以参考下2013-02-02
一个用python下载百度文库的代码，需要的同志请修改，下面有提示2012-08-08
这篇文章主要介绍了cpanm安装及安装Perl模块教程,本文先是给出了cpanm的安装教程,同时给出了Perl模块的安装实例,需要的朋友可以参考下2014-10-10
这篇文章主要介绍了在EditPlus中配置Perl开发编译环境,配置起来蛮简单,适合小型开发环境,需要的朋友可以参考下2015-06-06
Perl时间函数localtime的使用介绍，这里简单的介绍下，更多请查看官方介绍2013-02-02
本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性2017-09-09
Perl的经典用法分享，学习perl的朋友可以参考下2013-02-02
最新评论