[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.2, Tue Jan 18 18:15:23 2005 UTC
# Line 73  Line 73 
73      {      {
74          print STDERR  "BAD LEN $id ", length($newdnaseq), " ", length($newprotseq), "\n";          print STDERR  "BAD LEN $id ", length($newdnaseq), " ", length($newprotseq), "\n";
75      }      }
     $id =~ /^ORF_(\S+)/;  
76      $dnaid = "DNA_" . $1;      $dnaid = "DNA_" . $1;
77      $proid = "PRO_" . $1;      $proid = "PRO_" . $1;
78      print ">$dnaid\n$newdnaseq\n";      print ">$dnaid\n$newdnaseq\n";

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3