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

Diff of /FigKernelScripts/match_dna_to_aligned_prots.pl

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

revision 1.1, Mon Jan 17 01:27:44 2005 UTC revision 1.4, Mon Dec 5 18:56:37 2005 UTC
# Line 1  Line 1 
1    #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18    
19  $usage = "match_dna_to_aligned_prots dna_filename aligned_prot_filename";  $usage = "match_dna_to_aligned_prots dna_filename aligned_prot_filename";
20    
# Line 73  Line 90 
90      {      {
91          print STDERR  "BAD LEN $id ", length($newdnaseq), " ", length($newprotseq), "\n";          print STDERR  "BAD LEN $id ", length($newdnaseq), " ", length($newprotseq), "\n";
92      }      }
93      $id =~ /^ORF_(\S+)/;      $dnaid = "DNA_" . $id;
94      $dnaid = "DNA_" . $1;      $proid = "PRO_" . $id;
     $proid = "PRO_" . $1;  
95      print ">$dnaid\n$newdnaseq\n";      print ">$dnaid\n$newdnaseq\n";
96      print ">$proid\n$newprotseq\n";      print ">$proid\n$newprotseq\n";
97  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3