我們舉一例如下
#!/usr/bin/env perl package Demo; sub print_newline { print "\n"; } sub print_something { $a = shift; print "$a\n"; } sub return_something { return shift; } 1; # 《程式語言教學誌》的範例程式 # http://pydoing.blogspot.com/ # 檔名:Demo.pm # 功能:示範 Perl 程式 # 作者:張凱慶 # 時間:西元 2013 年 1 月
檔案名稱為 Demo.pm ,裡頭的套件名稱亦為 Demo
package Demo;
三個副程式 (subroutine) 為我們之前的範例,注意這一行
1 ;
這裡只寫了一個整數 1 ,表示邏輯上的 True ,放這一行的目的是給載入時用的,如果沒有這一行,直譯器會判斷這是個不可載入的模組。
下面例子示範用 require 函數 (function) 載入 Demo
#!/usr/bin/env perl require Demo; Demo::print_newline(); Demo::print_something(Demo::return_something("There is no spoon.")); Demo::print_newline(); # 《程式語言教學誌》的範例程式 # http://pydoing.blogspot.com/ # 檔名:mdemo2.pl # 功能:示範 Perl 程式 # 作者:張凱慶 # 時間:西元 2013 年 1 月
require 後面接模組名稱即可
require Demo;
使用模組內定義的內容,必須先用 :: 設定所屬的套件
Demo::print_newline(); Demo::print_something(Demo::return_something("There is no spoon.")); Demo::print_newline();
程式很簡單,跟我們之前的範例一樣,執行結果如下
require 的缺點是要用 :: 設定所屬套件,另外有個 use 函數,可以直接引入模組內的名稱,但是這樣的話,模組就必須做一堆麻煩的設定。
接下來我們要進入軟體開發的部份了, Perl 有很多預先定義好的變數 (variable) ,先來看看這些特別變數 (special variable) 吧!
中英文術語對照 | |
---|---|
模組 | module |
套件 | package |
副程式 | subroutine |
函數 | function |
變數 | variable |
特別變數 | special variable |
您可以繼續參考
基礎篇
相關目錄
回 Perl 入門指南
回 Perl 教材
回首頁
參考資料
http://perldoc.perl.org/perlintro.html
http://perldoc.perl.org/perlsyn.html
http://perldoc.perl.org/perlmod.html
http://www.tutorialspoint.com/perl/perl_modules.htm
沒有留言:
張貼留言