Perl实现高水线算法（解决多值比较问题方法）
更新时间：2015年06月15日 09:38:24 投稿：junjie
这篇文章主要介绍了Perl实现高水线算法（解决多值比较问题方法）,从本文代码示例中还可以学习到数组遍历、函数写法、函数调用等知识,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
"高水线"算法:大水过后，最后一波浪消退时，高水线会标示出所见过的最高水位。
下面看下"高水线"算法在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，就是数组中的最大元素。
相关文章
Perl的经典用法分享，学习perl的朋友可以参考下2013-02-02
这篇文章主要介绍了Perl基本数组排序方法介绍,本文讲解基于ASCII码排序、比较函数、按字母顺序排列、Perl对数值排序等内容,需要的朋友可以参考下2015-06-06
这篇文章主要介绍了Perl实现遍历目录例子,本文示例运行在Windows系统下,而且需要gbk编码,需要的朋友可以参考下2014-12-12
perl的INC变量包含了所有perl module的查找路径，可以使用perl -V 来查看INC的值2013-02-02
perl打开文件后，可以有几种方式对文件进行读取处理(根据文件大小，文件内容的特征和其它要处理的方式)2013-02-02
perl 删除数组元素的几种方法，有需要的朋友可以参考下2013-02-02
perl，读取所需文件的路径，然后打开相应的文件，并对文件中的DNA序列进行计数，substr函数对长字符串的片段化处理功能2013-03-03
perl可以使用JSON模块很方便的处理json的序列化和反序列化,本文通过一个简单例子给大家介绍的非常详细,感兴趣的朋友跟随小编一起看看吧2023-12-12
当Perl读入的源文件是Unicode的utf-8格式时，在使用Perl处理并输出到一个新文件以后，编码格式会自动发生变化2013-02-02
一个用python下载百度文库的代码，需要的同志请修改，下面有提示2012-08-08
最新评论