检测BLAST软件是否安装

pony2001mx

大家好：
我在perl程序里检测BLAST软件是否安装上，用到下面命令，为什么不输出ERROR: blast not installed信息？ （注：BLAST没有安装）
谢谢指点迷津！


check_blast();

sub check_blast {
    (open (my $BLAST_command, "blastn -h |")) || print STDERR "ERROR: blast not installed";
    close $BLAST_command;
}

b114213903

1. #!perl;
   
2. use strict;
   
3. 
   
4. my $a=`blastall`;
   
5. 
   
6. unless ($a=~/blast/){
   
7.         print STDERR "ERROR: blast not installed";
   
8. }

复制代码

Windows下测试可行……

pony2001mx

谢谢b114213903！
回复 2# b114213903