下載這份編程速查表，開始學習 Perl 的力量。

Perl 發(fā)布于 1988 年初，是一種后現(xiàn)代的編程語言，它通常被認為是一種腳本語言，但它也能進行面向對象的編程。它是一種成熟的語言，擁有 ??數(shù)以萬計的庫??、GUI 框架，它有一種叫做 Raku 的衍生語言（即 Perl 6），以及一個活躍而熱情的社區(qū)。它的開發(fā)者以其靈活性為榮。根據(jù)它的創(chuàng)造者 Larry Wall 的說法，Perl 并不對它的用戶強加任何特定的編程風格，而且有不止一種方法來完成大多數(shù)事情。

Perl 非常健壯，它曾經被廣泛使用，這使它成為新的程序員可以嘗試的偉大語言。

• ??下載 Perl 速查表??

Perl 基礎知識

在 Linux 和 macOS 上，你已經安裝了 Perl。在 Windows 上，請從 ??Perl 網站?? 下載并安裝它。

Perl 表達式

Perl 源代碼的基本單位是 表達式，它是任何能返回一個 值 的東西。

例如，??1?? 是一個表達式，它返回 ??1?? 的值。表達式 ??2?? 返回 ??2?? 的值，而 ??a?? 返回字母 ??a??。

表達式可以更復雜。表達式 ??$a + $b?? 包含變量（數(shù)據(jù)的占位符）和加號（??+??），它是一個數(shù)學運算符。

Perl 語句

Perl 語句是由表達式組成的。每個語句都以分號（??;??）結束。

比如說：

$c = $a + $b;

要嘗試運行你自己的 Perl 語句，請打開終端并輸入：

$ perl -e 'print ("Hello Perl\n");'

Perl 語句塊

Perl 語句塊可以用大括號（??{ }??）組合起來。塊是一種有用的組織工具，但它們也為那些你可能只需要在程序的一小部分使用的數(shù)據(jù)提供了 范圍。Python 用空白定義范圍，LISP 用小括號，而 C 和 Java 用大括號。

變量

變量是數(shù)據(jù)的占位符。人類每天都在使用變量而沒有意識到它。例如，“它”這個詞可以指代任何名詞，所以我們把它作為一個方便的占位符。“找到我的手機并把它拿給我”實際上是指“找到我的手機并把我的手機拿給我?！?/p>

對于計算機來說，變量不是一種便利，而是一種必需品。變量是計算機識別和跟蹤數(shù)據(jù)的方式。

在 Perl 中，你通過聲明一個變量名稱和它的內容來創(chuàng)建變量。

在 Perl 中，變量名稱前面總是有一個美元符號（??$??）。

這些簡單的語句創(chuàng)建了一個包含 ??"Hello"?? 和 ??"Perl"?? 字符串的變量 ??$var??，然后將該變量的內容打印到終端：

$ perl -e '$var = "hello perl"; print ("$var\n");'

流程控制

大多數(shù)程序需要做出決定，這些選擇由條件語句和循環(huán)來定義和控制。??if?? 語句是最直觀的一種。Perl 可以測試一個特定的條件，然后 Perl 根據(jù)這個條件決定程序如何進行。其語法類似于 C 或 Java：

my $var = 1;

if ($var == 1) {
  print("Hello Perl\n");
}
elsif ($var == 0){
  print("1 not found");
}
else {
  print("Good-bye");
}

Perl 也有一個簡短的 ??if?? 語句的形式：

$var = 1;

print("Hello Perl\n") if ($var == 1);

函數(shù)和子程序

盡可能多地重復使用代碼是一種有益的編程習慣。這種做法可以減少錯誤（或將錯誤合并到一個代碼塊中，因此你只需修復一次），使你的程序更容易維護，簡化你的程序邏輯，并使其他開發(fā)者更容易理解它。

在 Perl 中，你可以創(chuàng)建一個 子程序，它接受輸入（存儲在一個特殊的數(shù)組變量 ??@_?? 中）并可能返回一個輸出。你可以使用關鍵字 ??sub?? 來創(chuàng)建一個子程序，后面跟一個你選擇的子程序名稱，然后是代碼塊：

#!/usr/bin/env perl

use strict;
use warnings;

sub sum {
  my $total = 0;

  for my $i(@_){
    $total += $i;
  }

  return($total);
}

print &sum(1,2), "\n";

當然，Perl 有許多子程序，你不必自己去創(chuàng)建。有些是內置于 Perl 中的，而社區(qū)庫則提供了其他的。

用 Perl 編寫腳本

Perl 可以被編譯，也可以作為一種解釋型的腳本語言使用。后者是剛入門時最簡單的選擇，特別是如果你已經熟悉了 Python 或 ??shell 腳本??。

這里有一個用 Perl 編寫的簡單的擲骰子腳本。把它讀一遍，看看你是否能跟上它。

#!/usr/bin/env perl

use warnings;
use strict;
use utf8;
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";

my $sides = shift or
  die "\nYou must provide a number of sides for the dice.\n";

sub roller {
    my ($s) = @_;

    my $roll = int(rand($s));
    print $roll+1, "\n";
}

roller($sides);

第一行告訴你的 ??POSIX?? 終端要使用什么可執(zhí)行文件來運行該腳本。

接下來的五行是模板式的包含內容和設置。??use warnings?? 的設置告訴 Perl 檢查錯誤，并在終端對它發(fā)現(xiàn)的問題發(fā)出警告。??use strict?? 設置告訴 Perl 在發(fā)現(xiàn)錯誤時不要運行腳本。

這兩個設置都可以幫助你在代碼中的錯誤導致問題之前發(fā)現(xiàn)它們，所以通常要在你的腳本中激活它們。

腳本的主要部分開始于對腳本從終端啟動時提供給它的 ??參數(shù)?? 進行分析。在這種情況下，預期的參數(shù)是一個虛擬骰子的所需的面的數(shù)量。Perl 將其視為一個堆棧，并使用 ??shift?? 函數(shù)將其分配給變量 ??$sides??。當沒有提供參數(shù)時，??die?? 函數(shù)會被觸發(fā)。

用 ??sub?? 關鍵字創(chuàng)建的 ??roller?? 子程序（或函數(shù)），使用 Perl 的 ??rand?? 函數(shù)生成一個偽隨機數(shù)，最大不超過參數(shù)的數(shù)字。這意味著在這個程序中，一個 6 面的骰子不可能擲出 6，但它可以擲出 0。這對計算機和程序員來說是沒有問題的，但對大多數(shù)用戶來說，這是令人困惑的，所以它可以被視為一個 bug。為了在這個 bug 成為問題之前解決它，下一行在隨機數(shù)上加 1，并將結果作為擲骰子的結果打印出來。

當引用傳遞給子程序的參數(shù)時，你引用的是特殊變量 ??@_??，它是一個數(shù)組，包含了函數(shù)調用時括號內的所有內容。然而，當從數(shù)組中提取一個值時，數(shù)據(jù)被轉換成一個標量（例子中的 ??$s?? 變量）。

子程序在被調用之前不會運行，所以腳本的最后一行調用了自定義的 ??roller?? 函數(shù)，將命令的參數(shù)作為函數(shù)的參數(shù)。

將該文件保存為 ??dice.pl??，并標記為可執(zhí)行：

$ chmod +x dice.pl

最后，嘗試運行它，為它提供一個最大的數(shù)字，從中選擇其隨機數(shù)：

$ ./dice.pl 20
1
$ ./dice.lisp 20
7
$ ./dice.lisp 20
20

沒問題！

Perl 速查表

Perl 是一種有趣而強大的語言。盡管自從 Perl 成為默認的腳本語言后，Python、Ruby 和 Go 等新興語言引起了許多人的注意，但 Perl 的功能并不弱。事實上，它比以往任何時候都要好，而且前途光明。

下次你想找一種更靈活的語言，并有簡單的交付方式時，不妨試試 Perl，并??下載這個速查表??！