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

Annotation of /FigKernelScripts/possible_frameshifts.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : overbeek 1.1 use FIGO;
2 :     $figO = new FIGO;
3 :    
4 :     # usage: possible_frameshifts < PEGs > PEGs.That.might.be.frameshifted
5 :    
6 :     while (defined($_ = <STDIN>))
7 :     {
8 :     if ($_ =~ /(fig\|\d+\.\d+\.peg\.\d+)/)
9 :     {
10 :     $peg = $1;
11 :     $pegO = new FeatureO($figO,$peg);
12 :     if ($pegO->possible_frameshift)
13 :     {
14 :     print "$peg\n";
15 :     }
16 :     }
17 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3