简述Perl实现高水线算法
来源：爱站网时间：2019-07-30编辑：网友分享
Perl允许用户根据需要创建自己的程序进行操作，以实现各种特定的操作，其实在一个完整的子程序中，像Perl的内置函数或运算符一样，今天就让爱站技术频道小编简述Perl实现高水线算法，一起来学习吧！
Perl允许用户根据需要创建自己的程序进行操作，以实现各种特定的操作，其实在一个完整的子程序中，像Perl的内置函数或运算符一样，今天就让爱站技术频道小编简述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，就是数组中的最大元素。
上文是爱站技术频道小编为大家带来的简述Perl实现高水线算法，程序的开发的错误对于程序员来说是致命的打击，我们要与时俱进才能不畏任何人。
上一篇：PERL 正则表达式的详细解说
下一篇：perl编程的简单应用的实例详解
