溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹Perl包和模塊的示例分析，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！
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包名:Foo10包名: main 100包名: main 10
Perl語言提供了兩個關鍵字：BEGIN，END。它們可以分別包含一組腳本，用于程序體運行前或者運行后的執行。
語法格式如下：
BEGIN{...}END{...}BEGIN{...}END{...}每個 BEGIN 模塊在 Perl 腳本載入和編譯后但在其他語句執行前執行。
每個 END 語句塊在解釋器退出前執行。
BEGIN 和 END 語句塊在創建 Perl 模塊時特別有用。
如果你還不大理解，我們可以看個實例：
#!/usr/bin/per
lpackage Foo;print"Begin 和 Block 實例\n";
BEGIN{ print"這是 BEGIN 語句塊\n";}END{ print"這是 END 語句塊\n";}1;執行以上程序，輸出結果為:
這是BEGIN語句塊Begin和Block實例這是END語句塊
Perl5 中用Perl包來創建模塊。
Perl 模塊是一個可重復使用的包，模塊的名字與包名相同，定義的文件后綴為 .pm。
以下我們定義了一個模塊 Foo.pm，代碼如下所示：
#!/usr/bin/perlpackage 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 函數來調用，如下所示：
#!/usr/bin/perlrequire Foo;
Foo::bar("a");Foo::blat("b");也可以通過 use 函數來引用：
#!/usr/bin/perluse 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;requireExporter;@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 分發自帶的工具 h3xs 可以很簡單的創建一個 Perl 模塊。
你可以在命令行模式鍵入 h3xs 來看看它的參數列表。
h3xs 語法格式：
$ h3xs -AX -n ModuleName
參數說明：
-A 忽略 autoload 機制
-X 忽略 XS 元素
-n 指定擴展模塊的名字
例如，如果你的模塊在 Person.pm 文件中，使用以下命令：
$ h3xs -AX -n Person
執行以上程序將輸出：
Writing Person/lib/Person.pmWriting Person/Makefile.PLWriting Person/READMEWriting Person/t/Person.tWriting Person/ChangesWritingPerson/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。
我們可以對剛才壓縮的 Person.tar.gz 文件進行解壓安裝，執行步驟如下：
tar xvfz Person.tar.gz cd Personperl Makefile.PL make make install
首先運行 "perl Makefile.PL" 在當前目錄生成 Makefile；
然后運行 "make" 編譯并創建所需的庫文件；
之后用 "make test" 測試編譯結果是否正確；最后運行 "make install" 將庫文件安裝到系統目錄，至此整個編譯過程結束。
以上是“Perl包和模塊的示例分析”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業資訊頻道！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
