收藏本站 收藏本站
积木网首页 - 技术学院 - 软件测试 - 网站黄页 - 常用手册 - 站长工具 - 技术社区
首页 > perl > 正文

首页 - PHP - 数据库 - 操作系统 - 游戏开发 - JS - Android - MySql - Redis - MongoDB - Win8 - Shell编程 - DOS命令 - jQuery - CSS样式 - Python - Perl

Access - Oracle - DB2 - SQLServer - MsSql2008 - MsSql2005 - Sqlite - PostgreSQL - node.js - extjs - JavaScript vbs - Powershell - Ruby

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发出的警告。一方面你想在代码前面使用usewarnings作为你的安全网,另一方面,通

Perl基本数组排序方法介绍
本文我们学习如何用Perl对字符串或者数字数组进行排序。Perl有个内置函数叫做sort毫无疑问的可以排序一个数组。其最简单的形式是传递一个数组,它

Perl中怎样从数组中删除某个值?
我不确定undef是否和从数组中消除值有确切的关系,猜测一下,如果我们将undef视为"空",那么会有一些联系。但通常来说,将某些东西赋值为undef和删除

本周排行

更新排行

强悍的草根IT技术社区,这里应该有您想要的! 友情链接:b2b电子商务
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号