Perl模組編寫說明_應用技巧

Perl的文法相對來說有點晦澀，主要是一些內建變數和函數處理得相當精巧，而過於精緻的東西理解起來就有點費力。相對於Shell，Perl在很多方面更加強大高效，比如Hash(關聯陣列)就非常好用，如果要將不同主機發出來的警示資訊發送到不同的責任人，在shell中要做非常多的if或者case判斷，修改起來也非常費力，而使用關聯陣列，則可以輕鬆實現該功能，代碼簡潔，配置方便，一個字，爽。

Perl支援以模組對代碼進行封裝。著名的CPAN上就有非常多好用的Module，可以極大的減輕開發量。一個簡單的模組：

package NinGoo;
require Exporter;
use strict;
use warnings;

our @ISA     = qw(Exporter);
our @EXPORT  = qw(fun_public); #要輸出給外部調用的函數或者變數，以空格分隔
our @version = 1.0;
sub func_private{
  print "This is a private function";
}

sub func_public{
 print "Hello,world\n";
 func_private();
}

1;
__END__
模組的檔案名稱一般以.pm做尾碼，名字和package相同，也就是上面這個Module的名字為NinGoo.pm。然後在普通的.指令碼中調用：

#!/usr/bin/perl -w
# creator: NinGoo
# function: test perl module

BEGIN {
    push (@INC,'/home/module');
}

use strict;
use NinGoo;

func_public();
O'Relly出版了一系列Perl的圖書，比較著名的大駱駝《Programming Perl》在這裡有一個線上中文版本的，可以看看。
作者：NinGoo  出處