[Bio] / FigKernelScripts / blastp_pseq.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/blastp_pseq.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Dec 1 20:46:40 2003 UTC revision 1.2, Wed Aug 11 12:15:12 2004 UTC
# Line 23  Line 23 
23  $ENV{"BLASTMAT"} = "$FIG_Config::fig/BLASTMAT";  $ENV{"BLASTMAT"} = "$FIG_Config::fig/BLASTMAT";
24  if (! -s "$db.psq")  if (! -s "$db.psq")
25  {  {
26      (system("$FIG_Config::fig/bin/formatdb -i $db -pT") == 0)      (system("$FIG_Config::ext_bin/formatdb -i $db -pT") == 0)
27          || die "could not run $FIG_Config::fig/bin/formatdb -i $db";          || die "could not run $FIG_Config::ext_bin/formatdb -i $db";
28  }  }
29    
30  $done = 0;  $done = 0;
31  while (! $done)  while (! $done)
32  {  {
33      if (system("$FIG_Config::fig/bin/blastall -FF -d $db -i $tmp -p blastp > $tmp.out") == 0)      if (system("$FIG_Config::ext_bin/blastall -FF -d $db -i $tmp -p blastp > $tmp.out") == 0)
34      {      {
35          @tmp = `tail -15 $tmp.out`;          @tmp = `tail -15 $tmp.out`;
36          if ((($tmp[$#tmp] =~ /bits\)\n/s) || (grep(/No hits found/,@tmp) > 0)) &&          if ((($tmp[$#tmp] =~ /bits\)\n/s) || (grep(/No hits found/,@tmp) > 0)) &&

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3