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

Diff of /FigKernelScripts/tmpred_predictions.pl

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

revision 1.1, Sun Dec 9 22:55:27 2012 UTC revision 1.2, Sun Dec 9 23:05:34 2012 UTC
# Line 61  Line 61 
61  while (defined($_ = <STDIN>))  while (defined($_ = <STDIN>))
62  {  {
63      chomp;      chomp;
64        $/ = "\n";
65      if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)      if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)
66      {      {
67          my $id = $1;          my $id = $1;
# Line 98  Line 99 
99              print join("\t",($id,@$tm)),"\n";              print join("\t",($id,@$tm)),"\n";
100          }          }
101      }      }
102        $/ = "\n>";
103  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3