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

Diff of /FigKernelScripts/test_figfam_peg.pl

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

revision 1.1, Sat Apr 28 14:47:53 2007 UTC revision 1.5, Thu Apr 17 20:48:15 2008 UTC
# Line 9  Line 9 
9  )  )
10      || die $usage;      || die $usage;
11    
12  $ff_data = (@ARGV > 0) ? $ARGV[0] : "$FIG_Config::data/FigfamsData";  $ff_data = (@ARGV > 0) ? $ARGV[0] : &FIG::get_figfams_data();
13  use FigFams;  use FigFams;
14  $figfams = new FigFams($fig,$ff_data);  $figfams = new FigFams($fig,$ff_data);
15  $seq = $fig->get_translation($peg);  $seq = $fig->get_translation($peg);
16    
17  $ENV{'DEBUG'} = 1;  $ENV{'DEBUG'} = 1;
18    
19  ($got,$sims) = $figfams->place_in_family($seq);  ($got,$sims) = $figfams->place_in_family($seq,1);
20  if (defined($got))  if (defined($got))
21  {  {
22      print &Dumper($sims,$got->family_id,$got->family_function);      print &Dumper($sims,$got->family_id,$got->family_function);
23  }  }
24  else  else
25  {  {
26      print STDERR "Sorry, no call\n";      print "Sorry, no call, trying loose check\n";
27        ($got,$sims) = $figfams->place_in_family($seq,1,1);
28        if (defined($got))
29        {
30            print &Dumper($sims,$got->family_id,$got->family_function);
31        }
32        else
33        {
34            print "Sorry, no call\n";
35        }
36  }  }
37    
38    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3