征服Perl——子程式等相關知識——裡程碑M5

1 在Perl中的子程式是這樣寫的

sub sum

{

        $a+$b;

}

$a=2;

$b=3;

print &sum,"\n";

子程式任何時候都有傳回值，在一個就是調用子程式就是&+子程式名

2 參數，在Perl中也是可以傳參數的，但是參數自動存放在@_的數組中，也就是說參數存放在$_[0],$_[1]依次下推

3 看來Perl的子程式還真是cool啊！

4 Perl在每次調用時給我們提供@_這個私有變量

5 預設情況下Perl的所有變量都是全局的，當然你也可以定義私有的：my（$a）

6 在實際的Perl代碼中，傳遞給子程式的參數個數是沒有限制的

7 下面的是著名的算法，筆試的時候也經常考，呵呵，記住了啊！

sub max

        my($max_so_far)=shift @_;

        foreach (@_)

        {

                if($_>$max_so_far)

                {

                        $max_so_far=$_;

                }

        }

        print $max_so_far;

&max(3,5,10,4,6);

8 Perl的文法是很寬松的，如果你想讓Perl變的嚴格點，那麼就在代碼的開始處添加，下面的話

use strict 

本文轉自 小強測試幫 51CTO部落格，原文連結：http://blog.51cto.com/xqtesting/807612，如需轉載請自行聯系原作者