Perl語言入門教程

Perl語言入門教程

引言

Perl是一種非常簡單、應(yīng)用廣泛且反響很好的腳本語言。它可用于各種任務(wù)（例如，您可以使用它創(chuàng)建DOS批處理文件或C外殼腳本的等效文件），但在網(wǎng)絡(luò)開發(fā)環(huán)境中，它用于開發(fā)CGI腳本。

由于Perl是一種腳本語言，所以使用它的一個(gè)好處就是可以分發(fā)程序的源代碼。這就為您提供了學(xué)習(xí)Perl的機(jī)會，您也可以下載和修改數(shù)千個(gè)Perl腳本，以供自己使用。Perl的缺點(diǎn)之一就是，多數(shù)的免費(fèi)代碼都難以理解。這使Perl自身成了一種神秘的語言類型！

本文假定您已經(jīng)知道如何編程（如果您了解C編程語言，這對您將非常簡單）。一旦掌握了有關(guān)Perl的基礎(chǔ)知識，使用起來就會非常簡單。在本文中，我們將首先介紹如何使用Perl執(zhí)行最常見的編程任務(wù)。閱讀本文后，您將可以相對輕松地編寫自己的Perl腳本，還可以輕松地讀取其他人編寫的含義模糊的腳本，這將是一個(gè)好的開始。

Perl語言入門指南

要啟用Perl，您需要有Perl解釋程序。在任何裝有UNIX的計(jì)算機(jī)上，99.99%的都已安裝了Perl解釋程序。在裝有Windows或Mac計(jì)算機(jī)上，您需要下載最新的語言版本并將其安裝到計(jì)算機(jī)上。您可從網(wǎng)上輕松下載Perl，并且是免費(fèi)的。

接下來，請確保查看Perl附帶的DOCS目錄，其中會有類似用戶手冊的資料。從某種意義上說，讀完所有文檔，或只是先瀏覽一下都會很有幫助。最初會覺得很麻煩，但在讀完本文后，您將獲得更多的認(rèn)識。

輸出字符“Hello World”

如果您已加載了Perl，請確保已正確設(shè)置了路徑以包含Perl的可執(zhí)行文件。然后，打開文本編輯器并創(chuàng)建一個(gè)文本文件。在文件中，輸入以下行：

   print "Hello World!n";

將文件命名為“test1.pl”。在命令提示符下鍵入：

   perl test1.pl

Perl將運(yùn)行并執(zhí)行文本文件中的代碼。您應(yīng)該會看到詞語“Hello World!”打印到標(biāo)準(zhǔn)輸出中。正如您所看到的，在Perl中創(chuàng)建和運(yùn)行程序都非常簡單。（如果使用的是UNIX，您可以在第一行中輸入一段注釋，如#!/usr/bin/perl，那么以后您就不需要在命令行鍵入單詞“perl”了。）

print命令會將內(nèi)容打印到標(biāo)準(zhǔn)輸出中。符號n是換行符。如果您將測試程序修改成以下形式會更清楚（#表示一段注釋）：

   # Print on two lines 
   print "HellonWorld!n";

請注意，打印命令知道它應(yīng)該將“n”解釋為換行符而不是文字字符這并不是由于打印命令擁有智能，而是因?yàn)槭褂昧穗p引號（在Perl中實(shí)際稱為引用）。如果您用單引號代替雙引號，例如：

   print 'HellonWorld!n';

則不會對字符n進(jìn)行解釋，而是用文字代替。

還有反引號字符：`。一對反引號表示引號內(nèi)的字符應(yīng)被識別為一個(gè)操作系統(tǒng)命令，并且該命令與您輸入的命令一并執(zhí)行。如果您試圖將操作系統(tǒng)的命令行操作置于反引號內(nèi)，則將執(zhí)行該命令。例如，在Windows NT系統(tǒng)中，您可以使用：

   print `cmd /c dir`;

來運(yùn)行DIR命令，并可以從當(dāng)前目錄中查看文件列表。

PERL注釋
在Windows NT系統(tǒng)中，您不能輸入：
print `dir`;因?yàn)閐ir不是一個(gè)獨(dú)立的可執(zhí)行命令——它是命令解釋程序cmd的一部分。有關(guān)詳細(xì)信息，請?jiān)贒OS提示符后鍵入cmd /?。

符/用于引用正則表達(dá)式。

打印命令會將逗號解釋為分隔符。例如：

   print 'hello', "n", 'world!';

句號也起分隔符作用：

   print 'hello'. "n".'world!';

句號實(shí)際上是字符串連接分隔符。

還會有用于C語言體系的運(yùn)算符printf。

Perl變量

Perl語言中的變量非常有趣。Perl變量無需聲明，用$來指明即可。例如：

   $s = "HellonWorldn";
   $t = 'HellonWorldn';
   print $s, "n", $t;

或：

   $i = 5;
   $j = $i + 5;
   print $i, "t", $i + 1, "t",  $j;     # t = tab

或：

   $a = "Hello ";
   $b = "Worldn";
   $c = $a .$b;    # note use of . to concat strings 
   print $c; 

由于 . 表示字符串連接，因此可以估計(jì) .= 與 C 語言中的“+=”具有相同的含義。所以，你可以寫成：

   $a = "Hello ";
   $b = "Worldn";
   $a .= $b;
   print $a;

還可以創(chuàng)建數(shù)組：

   @a = ('cat', 'dog', 'eel');
   print @a, "n";
   print $#a, "n";  # The value of the highest index, zero based
   print $a[0], "n";
   print $a[0], $a[1], $a[2], "n";

符號$#表示獲得數(shù)組中的最高索引，它等于數(shù)組中元素的編號減1。像在C語言中一樣，所有數(shù)組的索引都是從零開始的。

您也可以創(chuàng)建散列：

   %h = ('dog', 'bark', 'cat', 'meow', 'eel', 'zap');
   print "The dog says ", $h{'dog'};

該散列中，單詞'bark'和'dog'相關(guān)聯(lián)，'meow'和'cat'相關(guān)聯(lián)，等等。這個(gè)散列還可以表達(dá)的更具藝術(shù)性：

   %h = (
      dog => 'bark',
      cat => 'meow',
      eel => 'zap'
   ); 

運(yùn)算符=>引用左邊的字符串，相當(dāng)于一個(gè)逗號。

循環(huán)語句和If語句

您可以像在C語言中一樣創(chuàng)建一個(gè)簡單的for循環(huán)語句：

   for ($i = 0; $i < 10; $i++) 
   { 
      print $i, "n"; 
   } 

Perl注釋
即使是單行語句，也必須使用左右大括號，即{和}。

While語句很簡單：
   $i = 0; 
   while ( $i < 10 ) 
   { 
      print $i, "n"; 
      $i++; 
   } 
If語句同樣也很簡單：
   for ($i = 0; $i < 10; $i++) 
   { 
      if ($i != 5) 
      { 
         print $i, "n"; 
      } 
   } 
布爾運(yùn)算符的作用與C語言中的相同： 
&& 表示“和” 
|| 表示“或” 
! 表示“非” 
對于數(shù)字： 
== 表示“等于” 
!= 表示“不等于” 
<、<=、> 和 >=（與原意相同） 

其他： 
eq 
ne 
lt 
le 
gt 
ge 
如果有一個(gè)數(shù)組，則您可以使用foreach語句輕松進(jìn)行循環(huán)：
   @a = ('dog', 'cat', 'eel'); 
   foreach $b (@a) 
   { 
      print $b, "n"; 
   } 
Foreach語句可以獲取@a數(shù)組中的每個(gè)元素，并將該元素置于$b中，直到@a循環(huán)結(jié)束。
Perl函數(shù)
使用單詞sub可以創(chuàng)建一個(gè)例行程序。將所有變量傳遞到例行程序中一個(gè)稱為_的數(shù)組。因此，需要運(yùn)行以下代碼：
   show ('cat', 'dog', 'eel');

   sub show
   {
      for ($i = 0; $i <= $#_; $i++)
      {
         print $_[$i], "n";
      }
   }
請注意，$#將返回?cái)?shù)組的最高索引號（元素的編號減1），所以$#_表示參數(shù)的編號減1。如果您喜歡這種運(yùn)算，那么也會愛上PERL語言。 
您可以使用單詞local聲明例行程序中的局部變量，例如：
   sub xxx
   {
      local ($a, $b, $c)
      ...
   }
還可以使用&調(diào)用某個(gè)Perl函數(shù)，例如：
   &show ('a', 'b', 'c');
只有在出現(xiàn)歧義時(shí)才需要使用&符號，但也有一些編程人員一直都使用該符號。 
要從例行程序中返回一個(gè)值，需要使用關(guān)鍵詞return。 
Perl讀取
從STDIN中讀取數(shù)據(jù)
要從標(biāo)準(zhǔn)輸入(stdin)中讀取數(shù)據(jù)，需要使用STDIN來處理。例如：
print "Enter high number:";
$i = ;
for ($j = 0; $j <= $i; $j++)
{ 
print $j, "n";
} 
只要輸入一個(gè)整數(shù)，該程序就將會正常運(yùn)行。 每次讀取一行數(shù)據(jù)。您還可以使用getc讀取一個(gè)字符，例如：
   $i = getc(STDIN);
或使用read語句：
   read(STDIN, $i, 1);
read命令的第三個(gè)參數(shù)中的1是要讀取的輸入數(shù)據(jù)的長度。 
讀取環(huán)境變量
您可以使用PERL定義一個(gè)名為ENV的全局散列，它可用來檢索環(huán)境變量的值。例如：
   print $ENV{'PATH'};
PERL注釋
環(huán)境變量的名稱必須使用大寫字母。
讀取命令行參數(shù)
您可以使用PERL定義一個(gè)全局?jǐn)?shù)組ARGV，其中包含所有傳遞給腳本的命令行參數(shù)。$#ARGV是傳遞的自變量的編號減1，$ARGV[0]是第一個(gè)被傳遞的自變量，$ARGV[1]是第二個(gè)被傳遞的自變量，依此類推。 
現(xiàn)在，您應(yīng)該能夠閱讀或編寫簡單的Perl腳本了。如果您樂于閱讀整篇文檔，會學(xué)到更多知識。有關(guān)其他信息，請查看下一頁上的鏈接。