初嘗 Perl

本文將闡述如下幾方面內容：

一、什麼是Perl

二、Perl有什麼用

三、Windows 下的Perl環境搭建

四、Perl 版Hello World

五、Perl 語法梗概

六、一些參考資料

---

什麼是Perl

Perl 是一門由 Larry Wall(拉里·沃爾)設計並實現的一門腳本語言，Larry Wall設計這門語言的最初的目的爲了讓UNIX 上得報表處理工做變得更方便。Perl 初版的發行時間爲 1987年（Python初版的發行時間爲 1991年、Ruby初版的發行時間爲 1995年，這三種程序設計語言常常被放在一塊兒作比較）。

Perl的來自單詞Pearl（珍珠的意思），或許在設計者 Larry Wall 眼裏，Perl如珍珠般珍貴

Perl的吉祥物爲駱駝聽說是由於Oreilly出版的暢銷書Programming Perl的封面是一匹駱駝，Perl社區就採用了駱駝做爲Perl語言的吉祥物。

 

Perl 有什麼用

引用維基百科的說法，Perl的用途很廣，除了CGI之外，Perl還被用於圖形編程、系統編程、網絡編程、金融、生物等領域。因爲其靈活性，Perl被稱爲腳本語言中的瑞士軍刀。在CPAN上有大量優秀Perl的庫。在Linux和Mac OS 上都是內置Perl的。總結爲一句話——Perl頗有用，當須要腳本語言的時候，不妨考慮下Perl。這些咱們瞭解便可。

本篇文章爲初嘗Perl，定位爲了解Perl的梗概，博主目前現實工做中也沒用到Perl，僅僅當一個知識儲備，之後用到Perl的時候再深刻學習一番。

 

Windows 下的Perl環境搭建

一、訪問 http://www.perl.org/ 下載Perl Windows的實現版本，這裏有兩個版本（Strawberry Perl 和 ActiveState Perl）這兩個版本沒什麼大的區別，博主選擇了後者ActiveState Perl 5.20 

二、安裝 ActiveState Perl 5.20 ，一路默認安裝便可

三、驗證 Perl 是否安裝成功，在命令提示符下輸入 perl –v

如出現上圖所示信息表示 Perl 已安裝成功

 

Perl 版Hello World

一、打開一個文本編輯器(如Notepad++)，輸入以下內容

# perl-w
print "Hello World";

在名利提示符下運行結果爲（代碼保存在 1.pl 中）

上面的 # 是註釋符號， perl –w 是要求 perl 顯式 Warmming 信息的選項

 

Perl 語法梗概

一、 變量定義，在 Perl下有好幾種定義變量的方法，我撿最經常使用兩種說明：

單數變量：以$ 打頭，僅表示一個變量對象

複數變量：以@打頭，表示一個數組

例1：單數變量

# perl-w
$pi = 3.141592;
print $pi;

例2：複數變量

# perl-w
@digital = (a..z);
print @digital; #打印a到z的全部小寫字母

 

二、每一個語句以分號「;」結束

 

三、簡單的數學運算

# perl-w
$a = 2;
$b = 3;
print $a + $b;    # 加法
print "\n";
print $a - $b;    # 減法
print "\n";
print $a % $b;  # 模運算
print "\n";
print $a ** $b; # 冪運算

 

四、比較操做符 及 if 分支結構

比較	數字	字符串	含義
等於	==	eq	判斷相等與否
不等	!=	ne	判斷不等與否
小於	<	lt	判斷小於與否
大於	>	gt	判斷大於與否
小於或等於	<=	le	判斷不大於與否
大於或等於	>=	ge	判斷不小於與否
比較	<=>	cmp	相等爲0，前者大爲1，不然爲-1

也許讀者看到這個會奇怪，爲何有兩套比較操做符，其實我也很奇怪，可是Perl設計人就是這樣設計的，咱不計較。這兩組比較符要求待比較參數先轉換爲合適的參數類型後比較。光說不練假把式看代碼：

# perl-w
$a = "a";
$b = "b";
if($a == $b){
    print "兩變量相等";        
} else {
    print "兩變量不相等";
}
# 會打印兩變量相等 由於$a 和 $b 都是字符串轉換爲數字都會失敗，返回相同的默認值，因此相等

# perl-w
$a = "a";
$b = "b";
if($a eq $b){
    print "兩變量相等";        
} else {
    print "兩變量不相等";
}

if分支包括 if 、if –else 、if –若干個elsif-else 3種

 

五、循環

Perl 有4種循環 while 、do-while、for、foeach

# perl-w
# 打印1-100 被3整除的數
$var = 1;
while($var <= 100){
    if($var % 3 == 0){
        print $var;
        print " ";
    }
    $var += 1;
}

do-while 略

# perl-w
# 打印1-100 被3整除的數
for($var = 1;$var <=100;$var++){
    if($var % 3 == 0) {
        print $var;
        print " ";
    }
}

foreach 的格式爲：

foreach $i (@some_list){

   statement_1;

   …

   statement_n;

}

# perl-w
# 打印1-100 被3整除的數
# (1..100)返回的是一個數組
foreach $var ((1..100)){
    if($var % 3 == 0){
        print $var;
        print " ";
    }
}

在 for 和 foreach 中有兩個循環控制關鍵字——last 和 next。 last 至關於break，next 爲 continue，有C基礎的人都能看懂什麼意思。

 

六、函數

函數的定義爲用關鍵 sub 聲明

sub methodName{

  statement_1;

  …

  statement_n;

}

參數列表存在 @_ 中

如函數帶返回值，結尾用 return 語句接口

看代碼

# perl-w
sub add{
    foreach $para (@_) {
        print $para;
        print " ";
    }
    print "\n";
    return $_[0] + $_[1];    # 帶返回值
}
print add(3,4);

 

 

一些參考資料

一、小駱駝書

二、大駱駝書

三、Perl 官網 http://www.perl.org/

 

本文完