[Bio] / FigTutorial / connect_map_to_genes.pl Repository:
ViewVC logotype

Diff of /FigTutorial/connect_map_to_genes.pl

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

revision 1.1, Tue May 25 18:36:04 2004 UTC revision 1.2, Thu Jun 10 13:39:16 2004 UTC
# Line 1  Line 1 
 #!/Users/fig/FIGdisk/env/mac/bin/perl  
   
 use Data::Dumper;  
 use Carp;  
 # Following block is expanded by switch_to_release to add use lib directives  
 # to point at the correct locations in the release directory.  
 #BEGIN switch_to_release generated code  
 use lib '/Users/fig/FIGdisk/dist/releases/0.0.0/mac/lib';  
 use lib '/Users/fig/FIGdisk/dist/releases/0.0.0/mac/lib/FigKernelPackages';  
 #END switch_to_release generated code  
   
 use lib "/Users/fig/FIGdisk/config";  
 use FIG_Config;  
   
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3  use Sim;  use Sim;
# Line 29  Line 15 
15    
16  $name = $fig->map_name($map);  $name = $fig->map_name($map);
17  print "$map\t$name\n";  print "$map\t$name\n";
18  foreach $role ($fig->map_to_roles($map))  foreach $role ($fig->map_to_ecs($map))
19  {  {
20      print "  $role\n";      print "  $role\n";
21      foreach $peg ($fig->seqs_with_role($role,"master",$genome))      foreach $peg ($fig->seqs_with_role($role,"master",$genome))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3