[Bio] / Sprout / Sprout.pm Repository:
ViewVC logotype

Diff of /Sprout/Sprout.pm

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

revision 1.91, Sat Oct 14 18:12:48 2006 UTC revision 1.92, Mon Oct 16 07:41:50 2006 UTC
# Line 3149  Line 3149 
3149      # Loop through the input triples.      # Loop through the input triples.
3150      my $n = length $sequence;      my $n = length $sequence;
3151      for (my $i = 0; $i < $n; $i += 3) {      for (my $i = 0; $i < $n; $i += 3) {
3152          # Get the current triple from the sequence.          # Get the current triple from the sequence. Note we convert to
3153          my $triple = substr($sequence, $i, 3);          # upper case to insure a match.
3154            my $triple = uc substr($sequence, $i, 3);
3155          # Translate it using the table.          # Translate it using the table.
3156          my $protein = "X";          my $protein = "X";
3157          if (exists $table->{$triple}) { $protein = $table->{$triple}; }          if (exists $table->{$triple}) { $protein = $table->{$triple}; }

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3