手机
当前位置:查字典教程网 >脚本专栏 >perl >Perl实现高水线算法(解决多值比较问题方法)
Perl实现高水线算法(解决多值比较问题方法)
摘要:"高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。下面看下"高水线"算法在Perl中的运用。#!/usr/bin/...

"高水线"算法:大水过后,最后一波浪消退时,高水线会标示出所见过的最高水位。

下面看下"高水线"算法在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实现检测服务器中的服务是否正常脚本分享

perl 控制结构 条件控制 if while

讲Perl中的本地时间与UNIX时间戳间相互转换的方法

Perl使用chdir的实例代码

在vim中添加perl注释时无法对齐问题的解决方法

perl命令行参数内建数组@ARGV浅析

Perl访问MSSQL并迁移到MySQL数据库脚本实例

Perl从文件中读取字符串的两种实现方法

perl用{}修饰变量名的写法分享

精品推荐
分类导航