[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.23, Fri Sep 9 21:15:47 2005 UTC revision 1.24, Sun Sep 11 17:08:59 2005 UTC
# Line 1701  Line 1701 
1701          if ($line =~ m/^>\s*(.+?)(\s|\n)/) {          if ($line =~ m/^>\s*(.+?)(\s|\n)/) {
1702              # Here we have a new header. Store the current sequence if we have one.              # Here we have a new header. Store the current sequence if we have one.
1703              if ($id) {              if ($id) {
1704                  $retVal{$id} = uc $sequence;                  $retVal{$id} = lc $sequence;
1705              }              }
1706              # Clear the sequence accumulator and save the new ID.              # Clear the sequence accumulator and save the new ID.
1707              ($id, $sequence) = ("$prefix$1", "");              ($id, $sequence) = ("$prefix$1", "");
1708          } else {          } else {
1709              # Here we have a data line, so we add it to the sequence accumulator.              # Here we have a data line, so we add it to the sequence accumulator.
1710              # First, we get the actual data out. Note that we normalize to upper              # First, we get the actual data out. Note that we normalize to lower
1711              # case.              # case.
1712              $line =~ /^\s*(.*?)(\s|\n)/;              $line =~ /^\s*(.*?)(\s|\n)/;
1713              $sequence .= $1;              $sequence .= $1;
# Line 1715  Line 1715 
1715      }      }
1716      # Flush out the last sequence (if any).      # Flush out the last sequence (if any).
1717      if ($sequence) {      if ($sequence) {
1718          $retVal{$id} = uc $sequence;          $retVal{$id} = lc $sequence;
1719      }      }
1720      # Close the file.      # Close the file.
1721      close FASTAFILE;      close FASTAFILE;

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3