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

Diff of /FigKernelScripts/pg_roles_in_some_but_not_X.pl

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

revision 1.4, Wed Feb 27 22:41:19 2013 UTC revision 1.5, Wed Feb 27 22:44:12 2013 UTC
# Line 145  Line 145 
145              chomp;              chomp;
146              if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)              if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)
147              {              {
                 chomp;  
148                  my $peg = $1;                  my $peg = $1;
149                  my $seq = $2;                  my $seq = $2;
150                  $seq =~ s/\s//gs;                  $seq =~ s/\s//gs;
# Line 162  Line 161 
161          $/ = "\n>";          $/ = "\n>";
162          foreach $_ (`cat /vol/mirror-seed/Data.mirror/Organisms/$g/Features/peg/fasta`)          foreach $_ (`cat /vol/mirror-seed/Data.mirror/Organisms/$g/Features/peg/fasta`)
163          {          {
164                chomp;
165              if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)              if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)
166              {              {
                 chomp;  
167                  my $peg = $1;                  my $peg = $1;
168                  my $seq = $2;                  my $seq = $2;
169                  $seq =~ s/\s//gs;                  $seq =~ s/\s//gs;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3