#! /usr/bin/perl; 
use utf8; 
 
sub max { 
  my($max_so_far) = shift @_; #數(shù)組中第一個值，暫時當(dāng)成最大值。 
  foreach(@_){         #遍歷數(shù)組@_ 
  if($_>$max_so_far){     #看其它元素是否有比$max_so_far大的值。 
  $max_so_far = $_;}     #如果有話，更新最大值變量 
  } 
  $max_so_far; 
} 
 
my $_MaxData = &max(2,3,8,5,10); 
print $_MaxData;

第一行對數(shù)組@_進(jìn)行shift操作，將一個元素2放到最大值$max_so_far變量中，@_中剩下的元素為(3,8,5,10)，然后用foreach循環(huán)遍歷數(shù)組，新數(shù)組中的第一個元素3比2大，又被移到$max_so_far變量中，依次類推，最后10，就是數(shù)組中的最大元素。

相關(guān)文章

Perl5和Perl6對比使用Sigils的差別
今天小編就為大家分享一篇關(guān)于Perl5和Perl6對比使用Sigils的差別，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
2018-09-09
Perl中使用File::Lockfile確保腳本單實例運行
這篇文章主要介紹了Perl中使用File::Lockfile確保腳本單實例運行的方法,本文直接給出實例,方法非常簡單,需要的朋友可以參考下
2014-11-11
Perl中的特殊符號介紹
這篇文章主要介紹了Perl中的特殊符號介紹,需要的朋友可以參考下
2017-10-10
perl文件操作的一些例子分享
有關(guān)perl文件操作的一些例子，供大家學(xué)習(xí)參考
2013-02-02
perl實現(xiàn)blog備份的腳本代碼
用perl實現(xiàn)的備份sql的代碼，需要的朋友可以參考下
2013-02-02
強大的Perl正則表達(dá)式實例詳解
正則表達(dá)式是Perl語言的特色，基本的語法不是很難，但是編寫一個符合需求、高效的正則表達(dá)式，還是有一些挑戰(zhàn)的。下面這篇文章主要給大家介紹了關(guān)于強大的Perl正則表達(dá)式的相關(guān)資料，需要的朋友可以參考借鑒，下面來一起看看吧。
2017-11-11
一篇文章搞懂：詞法作用域、動態(tài)作用域、回調(diào)函數(shù)及閉包
這篇文章主要給大家介紹了如何通過一篇文章搞懂：詞法作用域、動態(tài)作用域、回調(diào)函數(shù)及閉包的相關(guān)資料，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面來一起看看吧
2018-12-12
perl哈希hash的常見用法介紹
哈希在perl是非常重要且常用的，本文為大家介紹一些常見的用法，供大家學(xué)習(xí)參考
2013-02-02
perl高級排序，<=>操作符，飛船操作符
perl高級排序的關(guān)鍵在于要指定排序的方式，使用的操作符是spaceship operator（<=>)
2013-02-02
perl的INC設(shè)置分析
perl的INC變量包含了所有perl module的查找路徑，可以使用perl -V 來查看INC的值
2013-02-02