Perl模塊編寫(xiě)說(shuō)明

2020-10-31 15:20:52

字體：大中小

供稿：網(wǎng)友

Perl的語(yǔ)法相對(duì)來(lái)說(shuō)有點(diǎn)晦澀，主要是一些內(nèi)置變量和函數(shù)處理得相當(dāng)精巧，而過(guò)于精致的東西理解起來(lái)就有點(diǎn)費(fèi)力。相對(duì)于Shell，Perl在很多方面更加強(qiáng)大高效，比如Hash(關(guān)聯(lián)數(shù)組)就非常好用，如果要將不同主機(jī)發(fā)出來(lái)的告警信息發(fā)送到不同的責(zé)任人，在shell中要做非常多的if或者case判斷，修改起來(lái)也非常費(fèi)力，而使用關(guān)聯(lián)數(shù)組，則可以輕松實(shí)現(xiàn)該功能，代碼簡(jiǎn)潔，配置方便，一個(gè)字，爽。

Perl支持以模塊對(duì)代碼進(jìn)行封裝。著名的CPAN上就有非常多好用的Module，可以極大的減輕開(kāi)發(fā)量。一個(gè)簡(jiǎn)單的模塊：

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

our @ISA     = qw(Exporter);
our @EXPORT  = qw(fun_public); #要輸出給外部調(diào)用的函數(shù)或者變量，以空格分隔
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相同，也就是上面這個(gè)Module的名字為NinGoo.pm。然后在普通的.腳本中調(diào)用：

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

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

use strict;
use NinGoo;

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

上一篇：用perl寫(xiě)的單位電腦信息采集程序

下一篇：perl后門(mén),正向和反向!實(shí)例代碼