Perl 套件和模組

Perl 中每個套件都有一個單獨的符號表，定義語法為：

package mypack;

此語句定義一個名為mypack 的套件，在此後定義的所有變數和子程式的名字都存貯在該套件關聯的符號表中，直到遇到另一個package 語句為止。

每個符號表有自己的一組變數、子程式名，各組名字是不相關的，因此可以在不同的套件中使用相同的變數名，而代表的是不同的變數。

從一個套件中存取另一個套件的變量，可透過" 套件名稱 + 雙冒號( :: ) + 變數名 " 的方式指定。

存貯變數和子程式的名字的預設符號表是與名為 main的套件相關聯的。如果在程式裡定義了其它的包，當你想切換回去使用預設的符號表，可以重新指定main包：

package main;

這樣，接下來的程式就好像從沒定義過包一樣，變數和子程式的名字象通常會那樣存貯。

以下實例中檔案有 main 和 Foo 套件。 特殊變數__PACKAGE__ 用於輸出套件名稱：

#!/usr/bin/perl

#  main 包
$i = 1; 
print "包名 : " , __PACKAGE__ , " $i\n"; 

package Foo;
#  Foo 包
$i = 10; 
print "包名 : " , __PACKAGE__ , " $i\n"; 

package main;
# 重新指定 main 包
$i = 100; 
print "包名 : " , __PACKAGE__ , " $i\n"; 
print "包名: " , __PACKAGE__ ,  " $Foo::i\n"; 

1;

執行上述程序，輸出結果為:

包名 : main 1
包名 : Foo 10
包名 : main 100
包名: main 10

---

#BEGIN和END 模組

Perl語言提供了兩個關鍵字：BEGIN，END。它們可以分別包含一組腳本，用於程式體運行前或執行後的執行。

語法格式如下：

BEGIN { ... }
END { ... }
BEGIN { ... }
END { ... }

• #每個BEGIN 模組在Perl 腳本載入和編譯後但在其他語句執行前執行。

• 每個 END 語句區塊在解釋器退出前執行。

• BEGIN 和 END 語句區塊在建立 Perl 模組時特別有用。

如果你還不太理解，我們可以看個實例：

#!/usr/bin/perl

package Foo;
print "Begin 和 Block 实例\n";

BEGIN { 
    print "这是 BEGIN 语句块\n" 
}

END { 
    print "这是 END 语句块\n" 
}

1;

執行以上程序，輸出結果為:

这是 BEGIN 语句块
Begin 和 Block 实例
这是 END 语句块

---

什麼是Perl 模組？

Perl5 中用Perl套件來建立模組。

Perl 模組是一個可重複使用的包，模組的名字與包名相同，定義的檔案後綴為 .pm。

以下我們定義了一個模組 Foo.pm，程式碼如下所示：

#!/usr/bin/perl

package Foo;
sub bar { 
   print "Hello $_[0]\n" 
}

sub blat { 
   print "World $_[0]\n" 
}
1;

Perl 中關於模組需要注意以下幾點：

• 函數require 和use 將載入一個模組。

• @INC  是 Perl 內建的特殊數組，它包含指向函式庫例程所在位置的目錄路徑。

• require 和 use 函數呼叫 eval 函數來執行程式碼。

• 結尾 1; 執行回傳 TRUE，這是必須的，否則回傳錯誤。

---

Require 和Use 函數

模組可以透過require 函數來調用，如下所示：

#!/usr/bin/perl

require Foo;

Foo::bar( "a" );
Foo::blat( "b" );

也可以透過use 函數來引用：

<pre>
#!/usr/bin/perl

use Foo;

bar( "a" );
blat( "b" );

我們注意到require 引用需要使用套件名稱指定函數，而use 不需要，二者的主要區別在於：

• 1、require用來載入module或perl程式(.pm後綴可以省略，但.pl必須有)

• 2、Perl use語句是編譯時引入的，require是執行時引入的

• #3、Perl use引入模組的同時，也引進了模組的子模組。而require則不能引入，要在重新宣告

• 4、USE是在目前預設的@INC裡面去尋找,一旦模組不在@INC中的話,用USE是不可以引入的，但是require可以指定路徑

• 5、USE引用模組時，如果模組名稱中包含::雙冒號，該雙冒號將作為路徑分隔符，相當於Unix下的/或Windows下的\。 如：

  
  

  use MyDirectory::MyModule

透過新增下列語句use 模組就可以從模組中匯出清單符號：

require Exporter;
@ISA = qw(Exporter);

@EXPORT陣列包含預設導出的變數和函數的名稱：

package Module;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(bar blat);  # 默认导出的符号

sub bar { print "Hello $_[0]\n" }
sub blat { print "World $_[0]\n" }
sub splat { print "Not $_[0]\n" }  # Not exported!

1;

---

建立Perl 模組

透過Perl 分發自帶的工具h2xs 可以很簡單的創建一個Perl 模組。

你可以在命令列模式鍵入 h2xs 來看看它的參數清單。

h2xs 語法格式：

$ h2xs -AX -n  ModuleName

參數說明：

• -A 忽略autoload 機制

• #-X 忽略XS 元素

• #-n 指定擴充模組的名稱

例如，如果你的模組在Person.pm 檔案中，使用以下指令：

$ h2xs -AX -n Person

執行以上程式將輸出：

Writing Person/lib/Person.pm
Writing Person/Makefile.PL
Writing Person/README
Writing Person/t/Person.t
Writing Person/Changes
Writing Person/MANIFEST

Person 目錄下你可以看到新增加的目錄及文件說明:

• README ：這個文件包含一些安裝信息，模組依賴性，版權信息等。

• Changes ：這個檔案作為你的專案的修改日誌（changelog）檔案。

• Makefile.PL ：這是標準的 Perl Makefile 建構器。用於建立 Makefile.PL 檔案來編譯該模組。

• MANIFEST ：本檔案用於自動建立 tar.gz 類型的模組版本分發。這樣你就可以把你的模組拿到 CPAN 發布或分發給其他人。它包含了你在這個項目中所有文件的清單。

• Person.pm ：這是主模組文件，包含你的 mod_perl 句柄程式碼（handler code）。

• Person.t ：針對該模組的一些測試腳本。預設它只是檢查模組的載入，你可以添加一些新的測試單元。

• t/ ：測試檔案

• lib/ ：實際原始碼存放的目錄

你可以使用tar (Linux 上) 指令將以上目錄打包為Person.tar.gz。

---

安裝Perl 模組

我們可以對剛才壓縮的Person.tar.gz 檔案進行解壓縮安裝，執行步驟如下：

tar xvfz Person.tar.gz
cd Person
perl Makefile.PL
make
make install

首先執行"perl Makefile.PL" 在目前目錄中產生Makefile；

然後執行"make" 編譯並建立所需的函式庫檔案；

後用"make test" 測試編譯結果是否正確；最後執行"make install" 將函式庫檔案安裝到系統目錄，至此整個編譯過程結束。