perl 模块的建立以及制定perl 模块的路径

1） perl 模块的建立

perl 模块的后缀名为.pm, 其中的内容和通常的perl脚本相同， perl模块中一般放置可重用的函数以及变量，

好比建立一个fasta.pm,里面包含一个统计fasta序列中gc碱基个数的方法：

 1 #/usr/bin/perl 
 2 package fasta;
 3 use warnings;
 4 use strict;
 5 
 6 sub run {
 7     my $seq = shift;
 8     return $seq =~ tr /GCgc/GCgc/;
 9 
10 }    
11 
12 1;

而后写一个脚本检测一下该模块是否起做用：

#!/usr/bin/perl 
use fasta;

my $seq = qq{ATCGCTACGACG};

my $gc = fasta::run($seq);

print qq{$gc\n};

运行该脚本，输出结果为7， 能够看出结果确实是GC碱基的个数；

这个测试的脚本和fasta.pm 是放在同一个目录下的， 当脚本和模块放置在不一样的目录时，

为了使用该模块， 就必须指定模块所在目录；

2) 指定perl模块目录

好比fasta.pm 所在目录为/home/xudl/perl

第一种方式： 设置环境变量PERL5LIB,

在~/.bashrc 中添加

export PERL5LIB=$PERL5LIB:/home/xudl/perl;

而后source ~/.bashrc 使这个新修改的环境变量生效便可；  

第二种方式， 在脚本中使用use lib

use  lib "/home/xudl/perl"；

而后就能够使用

use fasta;