在用perl写的流程中,有人喜欢直接在脚本定义软件的路径,比如:
my $blastall="/opt/blc/genome/bin/blastall";
这样做,看着好像很省事的样子,但是当一个流程层次关系比较复杂时,而且当其中的路径失效时,麻烦来了:我们需要翻复杂的脚本,重新找到标量的定义,然后修改之。可是,当你把所有调用的软件路径写到配置文件中,并用perl package function调用,当路径失效时,我们只需要在配置文件中修改就可以了。
比如配置文件config.txt是这样的:
###########################
#######software path#######
###########################
prank=/nas/GAG_02/liushiping/GACP/software/evolution/prank-msa/src/prank
GBlocks=/home/lixiangfeng/tools/Gblocks_0.91b/Gblocks
codeml=/share/project002/zhangpei/bin/paml44/bin/codeml
formatdb=/opt/blc/genome/bin/formatdb
blastall=/opt/blc/genome/bin/blastall
muscle=/opt/blc/genome/bin/muscle
###########################
#######END#################
###########################
################################################
######This package contains the pathes of many softwares
######You can modify the config.txt when the software path changed
######Original from xiangfeng li,xflee0608@163.com
####################2014-7-5####################
package Soft;
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(parse_config);
##parse the software.config file, and check the existence of each software
################################################
sub parse_config{
my ($config,$soft)=@_;
open IN,$config || die;
my %ha;
while(<IN>){
chomp;
next if /^#|^$/;
s/\s+//g;
my @p=split/=/,$_;
$ha{$p[0]}=$p[1];
}
close IN;
if(exists $ha{$soft}){
if(-e $ha{$soft}){
return $ha{$soft};
}else{
die "\nConfig Error: $soft wrong path in $config\n";
}
}else{
die "\nConfig Error: $soft not set in $config\n";
}
}
1;
__END__
那么怎么用这个package呢?
可以像正常的module调用那样,use module;
示例如下:
#! /usr/bin/perl -w
use strict;
use FindBin qw($Bin $Script);
use lib $Bin;
use Soft;
......
......
my $config="$Bin/config.txt";
my $blastall=parse_config($config,"blastall");
......
这样在流程中,看起来似乎多了许多行,但是这个package可以在不同的流程中反复调用,你只需要做好两件事情:
1,把Soft.pm 放到一个适当的位置,如果是调用流程的相对路径,就要用FindBin 模块,如果直接是一个固定的路径,可以这么写:
#! /usr/bin/perl -w
use strict;
use lib 'home/lxf/';
use Soft;
......
......
my $config="home/lxf/config.txt";
my $blastall=parse_config($config,"blastall");
......
2.在config文件中按格式要求写好你常用软件的路径,这样管理脚本中涉及的软件路径,是不是很方便呢?